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Aduenturer? 




Sixty- four 



34 Are You an Adventurer? by Diane LeBold 

If you like mystery novels, fantasy games or logic puzzles, you're 
likely material for adventuring. In addition to the Scott Adams 
adventures already available for the VIC 20, Commodore now has 
four challenging "participatory novels" to delight (and frustrate) 
our Commodore 64 users. 

42 Four for the Sixty-four by Steve Finkel 

Four new action games for the Commodore 64 will keep your 
eye-hand coordination honed and your reflexes tuned. Can 
YOU suivive?? 

50 Saving High Resolution Screens by Jim Gracely 

Last issue Jim explained how to create bit-mapped graphics on 
your Commodore 64, Now you find out how to save your best 
screens, so you can recall them any time you want. 

56 Making Friends with SID. Part 4 by Paul Higginbottom 
Make your Commodore 64 "piano" (see last issue) sound 
even more realistic by using the filters in your Sound Interface 
Device [SID). 




departmems 



Letters 

Our readers offer advice and opinions. 



Resolution 



10 Bralndrops 

From the editor 



12 We're Glad You Asked 

Technical editor Jim Gracely answers readers' questions. 

14 TheVICMagiclan 

Introducing FOR . . . NEXT Loops by Michael Tomczyk 

16 Butterfleld 

Everybodjf Knows ... by Jim Butterfield 

18 The Commodore Challenge Contest 

Tj/pe and save this month's winner, Spider Rescue, by R.M. McDonough, 
Jr. Then fill out the entry blank and send in a copy of your best for the 
VIC 20. Maybe you'll be our next winner! 
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23 High Scores 

How do you measure up in our ongoing competition? If you beat our 
champion gamesters' scores, send in a photo of the winning screen. 



SID, Part 4 



24 Access: Commodore User Groups 

A complete list of user groups around the world. 

30 No More Pencils, No More Books 

Interactive LOGO by David Malmberg 

65 Kids' Comer 

A Note From New Mexico by Betsy Byrne 

How to Submit Things to KEds' Comer 

VIC 20 Drawing Contest 

Multi-Draw for the Commodore 64 by Pete Lobl 

Commodore Kids Win Awards by Betsy Byrne 

A Printer Character Generator for the Commodore 64 

by Josh Rai 
Who Needs a Word Processor? ... 1 Do I by Richard Kotomori 
Confessions of a Computer Whlz-Ktd's Sister by Diana Sdmone 
For Grown-ups Only by Stephen Erwin 
Terrlflcl by Betsy Byrne 

103 Jiffies 

Keyboard Overlay for Programmable Function Keys 

by Paul Zander 
Solitaire for the 64 and PET/CBM by Robert W. Baker 
Two Cartoons for the VIC 20 by John Stillwell 

117 Programs 

Hexterminator II: A Game for Unexpanded VIC 20 

by George Currie 
Check-64: Checkbook Manager for the Commodore 64 

by Ron Cohen 

122 Book Reviews 

Af ach (n e Language for Begin ners reviewedbyDannyByme 
Stimulattng Simulations for the VIC reviewed by Jim Gracely 

124 Glitch Fix 

If we make a mistake, this is where we fix It. 

126 New Products 

New developments for Commodore computers from independent manu- 
facturers. 

128 Advertisers Index 
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Coming Next in Commodore's User Magazines 



Commodore: the Micro- 
computer Magazine. Issue 
26 (October/November): 
Features the latest software 
under development at Com- 
modore. Find out about the 
fantastic Super Expander for 
the Commodore 64, Simon's 
BASIC, VICTerm 40 telecom- 
munications software and 
much more. 



Power/Play. Winter: Our 
Christmas special will feature 
the hottest gift ideas for all 
your Commodore friends and 
relatives. Plus more games, 
more home applications, 
more on Commodore kids, 
more programming tips for 
beginners. Look for us in 
early November, 



F1,F2,F3,F4, 



Key to Entering Program Listings 

" [F1,F2,F3,F4,F5,F6,F7,F8] ": 

F5,F6, F7 AND F8 
" [POUND] ": ENGLISH POUND 
"[PI] "PI SYMBOL 
"""rUP ARROW 

" [HOME] " : UNSHIFTED CLR/HOME 
" [CLEAR] ": SHIFTED CLR/HOME 
" [RVS] ": REVERSE ON 
" [RVOFF]": REVERSE OFF 
" [BLACK, WHITE, RED, CYAN, MAGENTA, GREEN, BLUE, 

YELLOW]" THE 8 CTRL KEY COLORS 
" [ORANGE, BROWN, L. RED, GRAY 1,GRAY 2,L. 

GREEN, L. BLUE, GRAY 3]": THE 8 

COMMODORE KEY COLORS (ONLY ON THE 64) 
GRAPHIC SYMBOLS WILL BE REPRESENTED AS 

EITHER THE LETTERS SHFT (SHIFT KEY) AND 

A KEY: "[SHFT Q,SHFT K,SHFT V,SHFT T, 

SHFT L] " 

OR THE LETTERS CMDR {COMMODORE KEY) AND 

A KEY: "[CMDR Q,CMDR H,CMDR S,CMDR N, 

CMDR 0]" 
IF A SYMBOL IS REPEATED, THE NUMBER OF 

REPITITIONS WILL BE DIRECTLY AFTER THE 

KEY AND BEFORE THE COMMA: " [SPACE3 , 

SHFT S4,CMDR M2] " 
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YOU'VE 

GOT TO DIG 

DEEP TO FIND 

A MORE 

EXCITING GAME 

THAN 
MINER 2049ER: 



Now, Reston brings Commodore VIC-20" 
and Commodore 64" owners one of the hottest 
home computer gomes ever created — Miner 
2049er;" Help the legendary Mountle, Bounty 
Bob" chase the dastardly Yukon Yohan through 
on abandoned uranium mine — all ten levels of 
it. But you've got to ovoid the deadly radioac- 
tive mutonts. And wotch out for pulverizers, 
explosives, slides and foils. And grob oil the 
treasure you can olong the way. And beat the 
clock. Any computer gome you've played up to 
now has just been practice for Miner 2049er.'" 
It's fost and furious, a gold mine of action for 
the serious computer gamer. And Commodore 
VIC-SO" ond Commodore 64" owners can get it 
only from Restan. 

A Creative Pastime'" from 



HeMon So^wane 




A PrenlicB-Hall Compony 

11480 Sunset Hills Rd. Reston, VA 22090 

Avoilable at your locol computer retoiler or coll us at 

(800) 336-0338. 

Commodore VIC-20 and Commodore 64 ar« 
rogiitorad trgdamorktof Commodore Computar, Inc, 

Minor 20J9er and Bounty Bob are ragijtarsd tradamorks of Big Fiva Software. 



IFYOU OWN A COMMODORE VIC YOU 
KNOW IT CAN DOALLTHIS. 





BASIC 
PROGRAMMING 



rOIMXe UO OCORK tlUM 



Hn-=-5= 






WORD 
PROCESSING 

[3 ro 111 ^ en 1 
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VISIBLE 
SOLAR SYSTEM 







BINGO/ 
SPEED MATH 



HOME 
BABYSITTER 



ADVENTURE 
LAND 



BIORHYTHMS 






COSMK 
CRUNCHER 




SUPER 
SMASH 



RADAR 
RAT RACE 



JUPITER 
LANDER 




CHESS 



VIC AVENGER 



GORF 



OMEGA RACE 



and Dow Jones News/ 
Retrieval Service;- a free trial 
offer on The Sourcer and a 
discount progrann offer with 
Connp-U-Store and General 
Videotex Corp. 

Let's see. Did we leave 
anything out? Oh, yes. Along 
with CompuServe comes a 
free membership in the 
Commodore Information Net- 
work. This is your HOTLINE to 
Commodore. (How often do 
you get to speak directly to a 
manufacturer?) Through it we 

Certain offers subject to change. CompuServe IS a tiademark of CompuServe. Inc. and H.i.R BlociiCo. Dow Jonas News/Roitieval Service is a regisieredtrademark 
oi Oow Jonas & Co , inc The Source is a sarviee mark of Source Telecomputing Corporation, a subsidiary o) Reader's Digest Corporation, Inc 



What those extra few dol- 
lars get you is a simple little 
device called a Commodore 
VICMODEM, 

It connects your tele- 
phone to your VIC 20'" or 
Commodore 64'" computer 
(resulting in something aptly 
called telecomputing), giving 
you access to information 
such as you see on the 
screens to your right. 

Normally you'd have to 
type a short program into 
your computer to help it make 



the final transition into a 
telecomputer. 

However when you buy a 
VICMODEM, you'll find we've 
included a free software pro- 
gram. You just load it into your 
Commodore Datassette 
Recorder, and presto (give or 
take a moment or two), you 
have access to a vast library 
of information and games. 

Speaking of free. 
Commodore also includes a 
free subscription and a free 
hour's time on CompuServe™ 



BUT DID YOU KNOW FOR ABOUT $100 
YOU CAN ALSO GET IT TO DO ALLTHIS? 
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TAX ADVICE 



MOVIE 
REVIEWS 




SHOP AT HOME I.Q.TESTS 

can answer any questions you 
might have about your com- . 
puter, or pro- 
gramming, or 
anything else 
Commodore- 
related, via 
electronic 
mail. 

The Commodore Informa 
tion Network is also your di- 
rect line to the Commodore 
Bulletin Board, which 
Commodore owners use to 
keep in touch with each other, 



GAMES 



SPORTS NEWS 



for programming tips, Public 
Domain Software, and 
technical support. 




THE COMMODORE VIC so, 
A REAL COMPUTIR FOR THE PRICE OF ATOl 

Altogethei; these little ex- 
tras we've included with our 
VICMODEM add up to a value 
of $197.50. A nice return on an 



investment of around $100. 

Some computer com- 
panies think it's reasonable to 
ask as much as $500 for tele- 
computing capabilities such 
as ours. 

However with the 
Commodore VICMODEM sell- 
ing for around $100, we feel 
we're being a whole iot more 
reasonable. Don't you agree? 

Ce commodore 

COMPUTER 



These are just a (ewaxsmplas (ton our existing library of software available for the VIC 20. U.S.A,-PO. Box SQO, 
Conshohockeri, PA 1942B: Canada-3370 Pharmacy Avenue. Aglncouri, Onlario, Canada MtW 2<4. 



® SANYO MONITOR SALE!! 




9" Dote Monitor 



80 Columns x 24 lines 
Green text display 
East to read - no eye strain 
Up front brightness control 
High resolution graphics 
Quick start - no preheating 
Regulated power supply 
Attractive nnetal cabinet 
UL and FCC approved 



• 15 Day Free Trial - 90 Day Immediate Replacement Warranty 



9" Screen - Green Text Display $ 79.00 

12" Screen - Green Text Display (anti-reflective screen) $ 99.00 
12" Screen - Amber Text Display (anti-reflective screen) $119.00 



Display Monitors From Sar}yo 

With the need for computing power growing every day, Sanyo has 
stepped in to meet the demand with a whole new iine of low cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. All models come with an array of features, including up- 
front brightness and contrast controls. The capacity 5x7 dot 
characters as the input is 24 lines of characters with up to 
80 characters per line. 

Equally important, all are built with Sanyo's commitment 
to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality is 
reflected in our reputation. Unlike some suppliers, Sanyo designs, 
manufactures and tests virtually all the parts that go into our products, 
from cameras to stereos. That's an assurance not everybody can 
give you! 



Official Video Products 
of the Los Angeies 1384 Ofymptcs 




'qgp 






• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL - OVER 500 PROGRAMS • FREE CATALOGS 



t Add %\0.O3 lor shipping, handling and Insurartca. lltlno4a resldanta I 
I pisus add e% tax. Add t2Q.0O tor CANADA, PUERTO RICO, HAWAII | 
I onJsra. WE DO NOT E)fPOHT TO OTHER COUNTRIES. | 

I Enclose Cashiorj Check. Money Otdaf or PersoriBl Check. Alio* ^4 | 
I days lor delivery. 2 to 7 days lor phone orders. 1 day eipress maiil j 
I Canada orders must be in U.S. dollars. Visa - MasterCard - C.O.O 



1 



CKJTCDpD|7CC (Mf LOVE OUR CUSTOMERS! 

BOX S50, BARRINGTON, ILLINOIS 60010 
Phons 3't2;382-5244 to order 



letters 



How to Use the 
VIC's Programmable 
Function Keys 

To the Editor: 

There has been much said 
about those mysterious function 
keys. I have seen many ways to 
use them and address them. Most 
were very awkward and, when 
used, tended to make one never 
want to use them again. However, 
I have used them in a different 
way and have had good results. 

In all I have read, you always 
use the CHR$ function with the 
function keys. Well, 1 have been 
using these same keys in the same 
way you would use any other vari- 
able. Take an A or I or a Z. You 
don't use CHR$ to test for these 
with a GET statement, so why 
would you do it with the function 
keys? Just think of each function 
key as a simple variable. 1 would 
use it like this: 



100 GETA$:IF A$=""THEN 

100 
110 IF A$=" [Fl] "THEN500 
120 IF A$ = "{F3]"THEN600 
130 IF A$ = "[P5]"THEN700 



This has worked for me just as 
if I had used IFA$ = "A" or 1FA$ - 
"I" or any other variable. Just type 
the F1-F8 keys as regular variables. 
Try it and see how easy it is to use 
this way. 

David C. O'Sada 
Jacksonuilie, Florida 



A Printer Routine 
for Subroutines 

To the Editor; 

In the process of writing a very 
long program, 1 needed a way to 
list the separate subroutines on 
the printer. Luckily I had room 
for a routine to do this. Here's 
how it works. 

When run, the program asks for 
three inputs from the user: title of 
routine, starting line number and 
ending line number The listing of 
this routine is a sample output. 
Notice that the line numbers are 
included in the title. 



First, leave room somewhere 
for the routine in your program. I 
chose to put it at the very begin- 
ning and call the routine simply by 
typing RUN. If 1 want the rest of 
the program to run, then I type 
RUN 100. 

Then (easy as pie), answer 
the prompts. When the screen 
clears and the printer stops, hit 
RETURN. When the printer 
stops again, hit RETURN to 
close the file. C 

On yes, I almost forgot. 1 LOVE 
my Commodore 64! 

Lenton K. Goforth 
Brea, California 



Printer Routine 

5 PRINT" [CLEAR, D0WN4] " 

10 PRINT" [RVS] PRINTER [SPACE] OUTPUT [RVOFF] " 
20 PRINT:PRINT"PAGE [SPACEJTITLE"; : INPUT PT$ 
25 PRINT:PRINT"STARTINGISPACE] LINE [SPACE] 

NUMBER"; : INPUT SL 
30 IF SL=0 THEN 25 
35 PRINT:PRINT"ENDING [SPACE] LINE [SPACE] 

NUMBER"; : INPUT EL 

IF EL=0 THEN 35 

PRINT" [DOWN3,SPACE5] PLEASE [SPACE] ADJUST 

[SPACE] PAPER [SPACE] IN [SPACE] PRINTER" 

PRINT" [DOWN] HIT [SPACE, RVS , SPACE] Fl [SPACE, 

RVOFF, SPACE] WHEN [SPACE] READY" 

GET A$:IF A$=""THEN 55 

IF A$<>CHR$(133)THEN 50 

OPEN 4,4,0:CMD 4:PRINT CHR$ { 14 ) ; " [SPACE3] 

"PT$;" [SPACES] LINES"SL"-"EL; CHR$ (15) 

PRINT#4:CL0SE 4 

PRINT" [CLEAR, D0WN7 ] " 

PRINT"0PEN4,4,6:CMD4:LIST"SL"-"EL 

PRINT"PRINT#4, :CL0SE4" 

PRINT" [UP6] "; 

PRINT" [SPACE3,RVS,SPACE3] HIT [SPACE] RETURN 

[SPACE3] " 

END 
REM **** START OF REST OF PROGRAM **** 



40 
45 

50 

55 
60 
65 

70 
72 
75 
80 
85 
90 

95 
100 
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braindraps 



Alice in Adventureland 



Some people can't hack ad- 
venture games. They get too frus- 
trated by the crazy, convoluted 
logic and the limitations intrinsic to 
each game. Maybe they need to 
be entertained by graphic wonders 
on their screens, rather than (ugh!) 
just words. Or maybe they prefer 
to get physically involved^ — 
bouncing around in their chairs, 
elbows flapping, tongues lolling 
out, feet dancing to the erratic 
rhythm of alien ray guns as they 
wrestle with a joystick, maiming 
freaky little creatures — rather 
than just sitting there thinking 
and drawing maps. 

Not me. I've always been sus- 
ceptible to words. It seems to have 
come with the territory, from the 
time my mother used to chase me 
out of the house (1 think I was elev- 
en) with the threat that my eyes 
would fall out if I read any more 
and I needed the fresh air, any- 
way; right up until now, when my 
eyes feel like they WILL fall out 
from sitting in front of my CRT for 
hours. Words and 1 have gone a 
lot of places- — down rabbit holes, 
into enchanted gardens, across 
the forbidden thresholds of magic 
theaters. So 1 guess it was natural 
for somebody like me to take to 
adventuring. 

That's why this issue has been 
great fun. It gave me an unavoid- 
able reason to sit down and play 
adventure games again — some- 
thing I don't usually dare to do 
unless 1 plan not to see anybody 
or go anywhere for a couple of 
weeks. If you have that kind of 
head, I'll bet you're a potential 



adventurer yourself. Take a look 
at our adventure feature in this 
issue to verify. 

And now for an important an- 
nouncement, WE'VE CHANGED 
OUR PROGRAM LISTING FOR- 
MAT!! Now, instead of the reverse 
graphic symbols that have caused 
frustration for many of our new pro- 
grammers, we have nice, legible 
letter-quality WORDS that tell you 
which keys to press. This should 
delight all of you who have been 
having problems translating those 
sometimes only semi-legible re- 
verse graphic symbols. 

In our new format, the words 
in brackets tell you which keys to 
press. When you press the appro- 
priate keys you'll see those nasty 
graphic symbols appear on your 
screen — but they'll be the correct 
symbols, which is usually essential 
if you want your program to run 
right. Thanks to Jim Butterfield, 
who invented the program that 
translates those symbols into 
words, and to Jim Gracely. who 
modified it to suit our needs even 
better. A listing of the bracketed 
words and what they mean ap- 
pears on page 4. 

Our new Kids' Comer depart- 
ment keeps growing, thanks to 
Betsy Byrne's tireless efforts. I'm 
astonished (and so are some of 
our grown-up programmers) at 
some of the work you kids are 
doing. Even kids as young as ten 
year-old Josh Rai are writing pro- 
grams that we adults would have 
a hard time thinking up, let alone 
actually getting to work. 

Also in this issue you'll find 



another enlightening article about 
LOGO by Mn Turtle himself, David 
Malmberg. This time you'll find 
out how you can use LOGO, 
which will soon be available for 
the Commodore 64, to create 
your own LOGO lander game. 

Next issue will be our Christmas 
special. If you plan to buy pre- 
sents for your computer-using 
friends and relatives, the Winter 
Power jPla\) should help solve 
some of your Christmas shopping 
problems. 1 almost hate to men- 
tion Christmas so soon, but you 
know it always manages to sneak 
up on us some time before the end 
of the year, so you may as well plan 
to do it up right. Ho Ho. C 

— Diane LeBold 

Editor 
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Disk Drive D octor 

Sale 1^1995 



FACTS 



• It has been estimated that 60% of all drive downtime is directly related to poorly maintained drives. 

• Drives should be cleaned each week regardless of use. 

• Drives are sensitive to snrioke, dust and all micro particles. 

• Systematic operator performed maintenance is the best vt^ay of ensuring error free use of your 
computer system. 



The Cheetah disk drive cleaner can be used with single or double sided 5y2 " disk drives. The Cheetah is 
an easy to use fast method of maintaining efficient floppy diskette drive operation. 
The Cheetah cleaner comes with 2 disks and is packed in a protective plastic folder to prevent 
contamination. List $29.95 / Sale $19.95 



Features 


Cheetah 


3M 


Discwasher 


Verbatim 


Cleanings Per Kit 


40 + 


25 


30 


2 original • 10 refill 


Price 


S19.95 


$34.95 


$24.95 


$12,95 


Abrasivity 


None 


Minimum 


High 


Moderate 


Programming 
Required 


No 


No 


Yes 


No 



AdOSa.OO-torpostage. Add $6.00 for CANADA, PUERTO RICO. HAWAII • 

orders. WE DO MOT EXPORT TO OTHER COUNTRIES | 

Enclose Cashiers CriecK. Money Order or Personal Check. Allow 14 | 

days lor delivery. 2 to 7 days (or prone orders. 1 day express maiif | 

Canada ofders must be in U.E dollars We accepi Visa and Master^ | 

Card I 



CR]TCQpQI7CC (WE LOVE OUn CUSTOMERS) 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phons 312/382-5244 lo order 



we're glad you asked 



Our technical editor, 




Q I can't locate a table with 


either of them. Can you help? 


Jim Gracely, answers 
readers' questions. 


the PEEK(197) key codes for the 


Alt 


seems that somewhere 


Commodore 64. 1 have looked in 
both the user's guide and the Pro- 


along the way someone forgot all 
about that table. Don't fret how- 






grammer's Reference Guide and 


ever, because here it is: 






cannot find the 


information in 






# 


KEY 


# KEY 


# KEY 


# KEY 





[INST] 


17 


R 


34 


J 


51 


[CLEAR] 


1 


[RTRN] 


18 


D 


35 





52 


[RIGHT SHIFT] 


2 


[CRSR R] 


19 


6 


36 


M 


53 


= 


3 


[F7] 


20 


C 


37 


K 


54 


t 


4 


[Fl] 


21 


F 


38 





55 


/ 


5 


[F3] 


22 


T 


39 


N 


56 


1 


6 


[F5] 


23 


X 


40 


+ 


57 


"^ 


7 


[CRSR D] 


24 


7 


41 


P 


58 


[CNTRL] 


8 


3 


25 


Y 


42 


L 


59 


2 


9 


W 


26 


G 


43 


- 


60 


[SPACE] 


10 


A 


27 


8 


44 


* 


61 


[CMDR] 


11 


4 


28 


B 


45 


• 


62 


Q 


12 


Z 


29 


H 


46 


@ 


63 


[RUN/STOP] 


13 


s 


30 


U 


47 


t 


64 


NO KEY 


14 


E 


31 


V 


48 


[POUND] 






15 


[SHFT] 


32 


9 


49 


* 






16 


5 


33 


I 


50 


• 
1 






# 


KEY 


# KEY 


# KEY 


# KEY 





[INST] 


17 


R 


34 


J 


51 


[CLEAR] 


1 


[RTRN] 


18 


D 


35 





52 


[RIGHT SHIFT] 


2 


[CRSR R] 


19 


6 


36 


H 


53 


= 


3 


[F7] 


20 


C 


37 


K 


54 


t 


4 


[Fl] 


21 


F 


38 





55 


/ 


5 


[F3] 


22 


T 


39 


N 


56 


1 


6 


[F5] 


23 


X 


40 


+ 


57 


— 


7 


[CRSR D] 


24 


7 


41 


P 


58 


[CNTRL] 


8 


3 


25 


Y 


42 


L 


59 


2 


9 


W 


26 


G 


43 


- 


6 


[SPACE] 


10 


A 


27 


8 


44 


• 


61 


[CMDR] 


11 


4 


28 


B 


45 


* 
• 


62 


Q 


12 


Z 


29 


H 


46 


@ 


63 


[RUN/STOP] 


13 


S 


30 


U 


47 


f 


64 


NO KEY 


14 


E 


31 


V 


48 


[POUND] 






15 


[SHFT] 


32 


9 


49 


* 






16 


5 


33 


I 


50 


* 
t 
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Q We have tried to run 
"Wheel of Gold" (Spring, 1983), 
but consistently get an "out of 
memory" enror in line 30, even 
after installing a 16K expander 
Please help us! 

A James Dunn, author of 
"Wheel of Go!d", replies 

"Wheel of Gold" uses a tech- 
nique that protects an area of 
RAM from BASIC overwriting it. It 
stores the special character set in 
this area so that the VIC chip can 
access it. This is done by "fooling" 
BASIC into thinking that there is 
less memory than there really is. 
The key to this is in memory loca- 
tions 55 and 56. These locations 
are a zero page pointer that tells 
BASIC where the top of memory 
is. "Wheel of Gold" lowers the 
high byte, location 56, (The nor- 
mal value in location 56 is 30 if 
you have a 5K VIC. > This tech- 
nique will also work if you have 
expanded memory. The value in 
56 depends on how much mem- 
ory you attach. Unfortunately the 
VIC chip cannot access the expan- 
sion memory. This means that 
special character sets stored in 
protected high memory on an ex- 
panded VIC cannot work with the 
VIC chip. This is why "Wheel of 
Gold" will not work with memory 
expansion. 

After spending long hours typ- 
ing in a program it is always best to 
SAVE a copy to tape or disk first 
before RUNning it. If it crashes 
and the VIC locks up, you will 
have no alternative but to switch 
the VIC off, then on. This erases 
the program and you will have to 



re-type it. The important thing to 
remember is that a RUN/STOP- 
RESTORE does not reset all the 
pointers inside the VIC 20. Loca- 
tions 55 and 56 are ones that are 
not reset. The VIC is still "fooled". 
In fact, if you finish with "Wheel of 
Gold" and decide to load another 
program, you will find that mem- 
ory is still less than should be. 

The fix is simple however Just 
POKE 56 back to its initial value 
{30 for unexpanded VIC}. It might 
be a good idea to delete one of 
the first REM lines and replace it 
with POKE 56,30. That way you 
wouldn't have the problem re- 
RUNning it. You still must reset 
BASIC after you are through. You 
can do this by either turning the 
VIC off and on (wait at least 3 sec- 
onds between off and on} or you 
can type SYS64802 which will 
accomplish the same thing. This 
is called a warm start and will also 
erase memory. C 



Reach 
for 

MICRO-ED! 

Over 500 
Educational 
Programs for 

• Vic20™ 



and 

• The new 
Commodore 64 

VIC 30 and Cdmmodora U Atv iradcm^rks of Corrmodore 
Eleclronics Ltd. 

Send for FREE CAIALOG 
SPECIFY MICRO 




TM 



Please Send me your 
FREE CATALOG(S) 

Nil me 

Addrpss "~ 

State Zip 

for D PET^D VIC™ 
D New 

Commodore 64™ 

Micro-Ed, Inc. 
P.O. Box 24156 
Minneapolis, MN 55424 

You can call 

us at 
612-926-2292 

VIC 20 arid CommuJar* 64 art trademarks q1 
CommcKJore Eiecl rentes Lid. 
PET \% a ronlslefecr Trademark of ComrjiodDie- 
EJySiness wachir^es Inc. 
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the UIG magician 



Introducing 
"For... Next" Loops 



by Michael Tomczyk 




Michael Tomczyfc 



FOR. . . NEXT loops are probably used more 
often than any other BASIC command, except 
PRINT, These loops are used for three purposes: 
1) to insert a time delay in your program and 2) to 
count a series of number values, in order, and 3) to 
repeat an action in your program a specified num- 
ber of times. 



Time Delay Loops 



A "time delay bop" looks like this: 

10 FORT = 1T0200:NEXT 

This line means, "count to 200 before going on 
to the next action in the program". . . but the word 
NEXT doesn't mean "next action." !t means 
FOR1TO200. count the NEXT NUMBER (in this 
case, 1,2,3, and so on up to 200). First, here's a 
program with NO time delay: 

10 PRINT"VIC-20 "; 
30 GOTO 10 

Type RUN/STOP to "stop" the program, then 
type this line and hit RETURN: 

20 FORT = 1T0900:NEXT 



Type LIST and hit RETURN to see your program, 
then type RUN and RETURN to see how it works. 
The time delay loop has slowed down the pro- 
gram... and will slow down ANY BASIC PRO- 
GRAM. You can, in fact, insert Line 20 anywhere 
in your BASIC programs to create time delays. Try 
changing 900 in Line 20 to get a longer or shori:er 
time delay. 

Counting, Counting . . . 

The only difference between a time delay loop 
and a counting loop is where you put the NEXT 
command. 

In a time delay loop, you should put the NEXT 
immediately after the first part of the loop. But in a 
counting loop, the order should be: first, the FOR 
part of the loop; second, the program action; and 
third {immediately AFTER the program action), the 
NEXT command. Here's an example that counts 
from 1 to 10 and PRINTs the numbers on the screen: 

10 PORN = 1T010:PRINTN:NEXT 

You could count any series of numbers, like this: 

lOFORN = 150TO200:PRINTN:NEXT 

But counting is also used for other purposes. For 
example, you might want to make the VIC 20 move 
through a progression of musical note values, in 
order, to see how they sound. Here's how: 

10POKE36878,15 

20 FORM = 128T0255:POKE36876.M:PRINT M 

40 NEXTM 

50 POKE36876,0 

This program POKEs the VIC speaker numbered 
36876 with the musical note value of M. The note 
value M is actually a range of numbers from 128 to 
255. We defined this range in Line 20 (FORM = 
128T0255}. Then we POKE36876 with the value 
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of M and at the same time we PRINT the POKE 
numbers that match each musical note. 

Line 40 provides the NEXT command which 
makes the program move from 128 to 129 to 130, 
and so on until it reaches 255, Note that the NEXT 
command doesn't have to be on the same line as 
the FOR . . . part of the loop. Line 50 simply tums 
off the speaker. 

There are numerous examples of FOR. . . 
NEXT loops being used to count values or proceed 
through ranges of numbers. The color program on 
page 34 of the VIC 20 owner's manual is another 
good example. 

Repeating BASIC Commands 

You can make a BASIC command go back and 
repeat over and over again using a FOR . . . NEXT 
loop. Here's an example: 

10 FORX = lTO10:PRINr*COUNTING":NEXT 

Here, the important thing is to put the part you 
want to repeat BETWEEN the FOR and NEXT por- 
tions of the loop. This program PRlNTs the word 
"COUNTING" 10 times on the screen. 

Here's another type of counting program: 

10 FORG = 1T021:PRINTCHR$(166);:NEXT 

This program line PRlNTs a graphic symbol 21 
times across the top of the screen. It tells the VIC 20 
to PRINT the symbol represented by the CHR$ 
value (166). CHR$ values for all characters are 
shown on pages 145-147 of the owner's guide. Try 
substituting some other numbers. Here's another 
variation which gives the SAME RESULT: 



10 FORC = 0TO191:PRINTCHR$(C);:PRINT 



10 FORG = 1T021:PRINT" g ";:NEXT 

HOLD DOWN THE Q key and type " + " 

Finally, how about seeing the symbols repre- 
sented by all the CHR$ values? This program will 
do that 



SPACE SPACE "C:NEXT 



Using More Than One Loop 

You can use several FOR. . . NEXT loops in your 
programs, and even separate them . . . but one thing 
you CANNOT DO is "stagger" your loops OUT- 
SIDE of each other. This means, if you use two 
loops, you must arrange your program so the loops 
are "nested" inside each other The best way to 
demonshrate this is to show you a conrectly "nested" 
program and an incorrect program: 



CORRECT 
^lOFORA = 1T05:PR1NT"HELL0" 

|-*20FORB = 1T010:PRINT"GOOD-BYE" 

L^SO NEXTB 
'—40 NEXTA 



INCORRECT 
r*10FORA = 

r-20FORB = 
L^SO NEXTA 

1—40 NEXTB 



1T05:PRINT"HELL0" 
1T010:PR1NT"GOOD-BYE" 



Improper "nesting" (arranging) of loops in your 
program will cause the VIC 20 to give you a "NEXT 
WITHOUT FOR" en-or message. You will also get 
this error message if you forget to put in a NEXT 
command after the FOR portion. 

Summary 

These are only a few examples using FOR. . . 
NEXT loops. Try experimenting with the formats 
given above and you'll find that FOR. . . NEXT 
loops will make your programming more efficient, 
interesting, and creative. C 
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butterfield 



Everybody Knows .... 



by Jim Butterfield 



I must apologize . . . everything 
in this article is well known. Ask 
anybody. . . they'll say, "Oh, yes, 
everybody knows that". Silly, isn't 
it? These things are so well known 
that nobody has ever thought to 
mention them to you. Or perhaps 
you've never thought to mention 
them to your neighbor, since 
everybody knows about them. 

There are so many things that 
everybody knows (except maybe 
you) that I'll need to pick a selec- 
tion of the more obvious ones. I'll 
just touch on the subjects here. 

Fuzzy Numbers. 

Everybody knows that the 
computer cannot hold decimal 
fractions exactly Within the com- 
puter, they are held as endless re- 
peating values (just as one third 
is .33333 .... in decimal). All you 
need to do to confirm this is to ask 
the computer to PRINT 8.13 and 
see what it says. 

So we all know that for ac- 
counting purposes, we must beat 
the fuzzy number problem with 
careful rounding. 

Everybody knows that raising to 
a power and taking a square root 
goes through a strange calculation 
involving logarithms and exponen- 
tial functions and like that. As a 
result, we all know that these re- 
sults are close, but not exact We 
can confirm this by typing: FOR 
J=l to 10:PR1NT J t 2:NEXT J. 
And we know, of course, that 



multiplication doesn't have this 
problem; so we could eliminate 
the above fuzzy numbers by 
printing J*J. 

It's well known, too, that num- 
bers that print exactly are not 
necessarily exact, (f 1 ask the com- 
puter to PRINT SQR(25) it will 
obediently print the square root 
of 25, or 5. But we don't let the 
computer fool us; even though it 
printed 5 exactly, we spotted the 
SQR function there and know 
to be suspicious. Sure enough, 
PRINT SQR(25}-5 confinns it; 
instead of getting zero, we get a 
very small number. 

By the way, we all know about 
those numbers with the letter E in 
them. If the E is followed by a plus 
sign, it's a very large number; if the 
E is followed by a minus sign, it's 
a very small number. E stands for 
"exponent notation" which is the 
same as "scientific notation" on 
calculators . . . but that's well known, 
of course. If you ask the computer 
to PRINT .00000000123, we'll 
see the number repeated back in 
E-notation, But we all knew about 
that, of course. 

So we know to watch for test- 
ing for equal on a number that's 
been through a "fuzzy" process. In 
other words, we must not code 
IF SQR(25) =5 . . . the computer 
will probably not find the two 
values equal. Instead of testing for 
"equal", we should test for "very 
close" with something like IF ABS 



(SQR(25)-5)< .0001. . . and we'll 
get good results. But you know 
that already of course. 

The RETURN Action 

It's intuitively obvious to the 
most casual observer that the 
RETURN key should have been 
called the "DO IT" key When you 
press that key, you're telling the 
computer to do, or execute, what- 
ever is on the line you're leaving. 
That's all well and good; after you 
type in a command, you want the 
computer to do it. 

There are times, however, when 
you don't want a line executed 
{except, perhaps, by firing squad). 
Perhaps you've been drawing a 
dreaded Grunk, or part of it, on 
the computer screen and want to 
continue to the next part of the 
screen. Perhaps you've been try- 
ing to correct a line of BASIC and 
botched it. . , which sometimes 
happens if you get into the pro- 
grammed cursor mode. Maybe 
you were typing a program into 
your computer, and when some- 
body phoned, you just typed the 
message onto a spare part of the 
computer screen. You don't want 
the computer to try to do what- 
ever is on the screen. You just 
want to exit to the next line without 
doing anything. 

And you know, of course, that 
the way to abandon the current 
line is to hold down the SHIFT 
key and press RETURN. Shifted 
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RETURN might be considered 
the "DON'T DO IT" key. It can 
get you out of a lot of messy 
situations. 

Garbage Collection 

Everybody knows that certain 
kinds of strings can involve you in 
a nasty delay that happens at un- 
predictable times. If you didn't 
know about it, you might think 
that your machine has "crashed", 
since it goes silent and won't re- 
spond to the RUN/STOP key 
Try the following program: 



100 DIM A$(500) 
110 FOR J=l TO 500 
120 A${J}=STR$(J) 
130 NEXT J 



Now, RUN the program; it will 
take seven seconds or so to com- 
plete. After you do so, type as a 
direct statement: 



PRINT "THERE ARE"; PRE 
(0) ; "BYTES FREE" 



Wg all know that garbage col- 
lection will be invoked, and it will 
take this line almost twenty sec- 
onds to complete printing. During 
the pause, the RUN/STOP key will 
have no effect. You'll see little or 
no pause if you have a PET/CBM 



which comes with a 4.0 BASIC; 
but, of course, you knew that 
already. 

And it's well known that dou- 
bling the number of strings can 
multiply garbage collection delays 
by four. Try changing 500 to 1000 
in the above program, for example; 
as expected, you'll see the delay 
increase to over a minute. 

Of course, we know that there 
are methods of combatting gar- 
bage collection delays. There isn't 
room to discuss them here; but 
once we know to look for garbage 
collection delays, we can often 
sidetrack them. 

Conclusion 

You knew all this, of course, 
plus lots of other fairly obvious 
bits of information. But here's the 
funny part: you never thought 
to mention any of them to your 
neighbor or classmate or fellow 
club member. After all, every- 
body knows 

It turns out that there are lots 
of people who have never heard 
about such things. Because no- 
body thought to tell them what is 
obvious ... to themselves. C 



i 20" , 

LOQCl 



THE INTERNATIONAL USER'S 

NEWSLETTER/MAGAZINE 
CASSETTE-ALL IN ONE FOR 

VIC 20" OWNERS 

Don't let the cost of software take 
a big byte (ouch) out of your pay- 
check. Have you spent more time 
typing programs rather than enjoy- 
ing them? Do you have questions 
but no where to turn? Then- 
say no more. The solution is 20 
Load. For 50 bucks per year you 
will receive each month "Ready to 
run" programs, programming tech- 
niques, information, input from oth- 
er members, and fun. Why are you 
waiting? 20 Load, 550 Grant Ave- 
nue, Junction City, Kansas 66441 
(913) 762-4730. 

vic-20 li a traaemark of 
Commodore Buiiness riflachines, inc. 



Commodore 64'" Software 

Nobody else competes with our 
Quality • Prices • Support 

ED EC CREATE-A-POEM 

"I'^^P A natural language 
with anv purchou processing program. 

Choose From Those Fine Products: 

SaeenEdltBF S19.90 Giophlci Pkp. SM.90 

Hybrid BASJC/filachirlBloo. Plol ond urpkjf, Fujf liori- 

guagewordprocaiior. Can zontol/verliccil linn draw, 

be uied !o wrilo BASIC pro. Grpyjcolo option. Sprife 

grrims. Printing fi^oiun;!. No editor. Prog rommo bit? chpr- 

chorocter reliriclipni. ocler editor. 

Smart Ttrmlntil $29.90 Math/Statiitiii 

FuHmochinelflnguogepro- Poekdga S1it.9Q 

orcm for ntOKimum jpoed. Lioeor. logorithmli; regrei- 

SoHwore controlinblfl. Full jion. Matrix roufinei. 

ser of escape cKarocfori. General statistic*. Ba*e 

Downloading and upload- conversion*, 

inq. Full kevBoard jei (inc. Minl-Asiembls./ 

liiao, pipe, bocblaih). Monilor S14.90 

Eleclronk ArMtl $14.90 full!ynla«cKe(l<in(j. Under- 

{Requires Joyilkii,} Color i tan do bio error meiiogoi. 

polfttre seleciion. Orow. All oddroiiing modes, load 

Kegion fill. Imoge love. Cir- ond execultt conimands, 

cle generator. Stroight edge Timino jiots. Pre-dofined 

feature. Kernel labels. 

Alt ioftware avaiiable in either caaeffe or diik 



Our Guorortteo to You! 

OursoftworBisguaror^teed to be bug-free and 
dummy-proof with user- friendly, professional 
documentation. II you are not satisfied, wo will 
replace the soflwarc. 



Please send check or money order. Specify 
cassette or dislc. California residents add 
sales tax. Send for our free listing of 
available software. 

Bay Area Software 

Suite PPl, P.O. Ikn 322. Livcrmore, CA 04550 
Comniodflrfi &A ij o ffodemark 

of Commodorifr Buiinuis MachiJiei 
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the commodore challoife 



Congratulations to 

Commodore Challenge 

Contest \^^ners 



R.M. McDonough, Jr. of Panama City, Rorida for Spider Rescue 

Honorable Mention goes to: 
Juan Rivero of Hurlburt AFB, Florida, for Statfortress 



Thanks to all of you who submitted programs. They were all, as usual, 
great fun. (We never seem to have any problems getting volunteer judges for 
this department, for some reason.) And keep up the good work. Maybe next 

time the winner will be you. 

The Commodore Challenge 
Prizes • Prizes • Prizes 



If you've been playing around at home developing 
original games and programs for your unexpanded 
VIC 20, send your best— on cassette or disk, please — 
to the Commodore Challenge contest. Include a 
brief description of the program's purpose, including 
documentation on how to use it. If it's a game, be sure 
to include instructions. 

Programs requiring memory expansion are eligible, 
too, but will not be published unless space allows. 

Winners will receive a VIC 20 8K Memory Ex- 



pander Cartridge. All entries become the property of 
Commodore Business Machines, Inc., upon submis- 
sion. Winning entries published by POWER/ PLAY 
will become public domain sofKvare. 

Fill out the entry form below, and submit it with 
your game or program to: 

Commodore Business Machines, Inc. 

12 00 Wilson Drive 

West Chester, PA 19380 

Attn: POWER/PLAY 



Name 



Commodore Challenge Contest. . . Entry Form 

Age Phone , 



Address 
City- 



. Program Title . 



.State. 



.Zip . 



I understand that my software entry becomes the property of Commodore Business Machines, Inc., upon 
submission, and that winning entries published by POWER/ PLAY become public domain software. 



Signature . 



Parent's signature, if contestant is minor- 



Void Where Prohibited 
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spider Rescue 



by R. M. McDonough, Jr. 



In order to fit this program into your VIC 20 type the second part (Spider Rescue) and SAVE. The see- 

the first part (Spider Intro) and SAVE, Then type ond part will load automatically after you R(JN the 



Spider Intro 



first part. C 



PRINT" [CLEAR,RIGHT4,D0WN,GREEN,RVS] SPIDER [SPACE] RESCUE", 
" [D0WN,RIGHT3,BLACK]By [SPACE] R.M.MCDONOUGH" 

1 PRINT" [D0WN2] USE [SPACE] JOYSTICK [SPACE] TO [SPACE] GUIDE" , " 
[RIGHT] YOUR [SPACE]BRAVE [SPACE] SOLDIER" , "TO [SPACE] RESCUE 
[SPACE] THE [SPACE] HOSTAGES" 

2 PRINT" [RIGHT2,UP] BY [SPACE] TOUCHING [SPACE] THEM" 

3 PRINT" [D0WN,RIGHT2] BEWARE [SPACE] OF [SPACE, RED] SPIDERS" /' 
[BLACK, RIGHT4] LURKING [SPACE] ABOUT" 

4 PRINT" [DOWN, MAGENTA] THEY [SPACE] CAN [SPACE] BE [SPACE] 
STUNNED" , "BY [SPACE] YOUR [SPACE] STUN [SPACE] GRENADES" 

5 PRINT" [RIGHT2, DOWNS] HIT [SPACE] -C- [SPACE] TO [SPACE] 
CONTINUE" 

6 GET A$:IF A$=""THEN 6 

7 IF A$="C"THEN 9 

8 GOTO 6 

9 PRINT" [CLEAR, BLACK] GRENADES [SPACE] ARE [SPACE] LAUNCHED" , 
"BY [SPACE] HOLDING [SPACE] JOYSTICK" , "IN [SPACE] THE [SPACE] 
DESIRED" 

10 PRINT"DIRECTION [SPACE] AND [SPACE] PUSHING" , "THE [SPACE] 
FIRE [SPACE] BUTTON" 

11 PRINT" [DOWN, GREEN] START [SPACE]WITH [SPACE] 3 [SPACE] 
SOLDIERS" , "EXTRA [SPACE] SOLDIER [SPACE] ADDED" , "EACH 

[SPACE] TIME [SPACE] YOU [SPACE] RESCUE" 

12 PRINT"A [SPACE] COMPLETE [SPACE] SET" , "OF [SPACE] 40 [SPACE] 
HOSTAGES" 

13 PRINT" [DOWN, RED] EXTRA [SPACE] SPIDER [SPACE] ALSO" , "ADDED 
[SPACEJWITH [SPACE]COMPLETION" 

14 PRINT" [DOWNS, BLACK, RIGHT3] HIT [SPACE] -C- [SPACE] TO [SPACE] 
LOAD" , " [RIGHT4] MAIN [SPACE] PROGRAM" 

15 GET A$:IF A$=""THEN 15 

16 IF A$="C"THEN 18 

17 GOTO 15 

18 FOR 1=7424 TO 7503:READ R:POKE I,R:NEXT 
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19 DATA 0,0,0,0,0,0,0,0,16,56,80,120,84,18,16,48 

20 DATA 124,84,124,56,68,40,16,40,153,90,189,126,126,189, 

66,129 

21 DATA 0,48,126,127,127,62,30,56,24,60,24,60,90,24,36,102 

22 DATA 255,255,255,255,255,255,255,255,0,24,60,54,45,52, 
44,60 

23 DATA 0,24,60,54,45,52,44,60,0,0,0,255,255,0,0,0 

24 PRINT" [CLEAR] ":POKE 198,5:POKE 631,78:POKE 632,69 
:POKE 633,87:POKE 634,13:POKE 635,131:END 



Spider Rescue 



] 


POKE 52,29:POKE 56 , 29 :CLR:S=-22 : E=30720 : 33=36876 :V=36878 




:POKE V,15:Z=7680:NA=2 


1 I 


3IM JS(2,2):POKE 37139 , : LL=37154 : PA=37137 : PB=37152 


2 ] 


POR 1=0 TO 2:F0R J=0 TO 2 : READ JS(J,I):NEXT J, I 


3 I 


DATA-23,-22,-21,-1,0,1,21,22,2 3 


4 I 


DEF FN X{R)=INT(RND(l)*451)+7702 


5 ] 


F(0)=-21:F(l)=-22:F(2)=-23:F(3)=-l:F(4)=l:F(5)=21 




:F(6)=22:F(7)=23 


6 


PRINT" [CLEAR] ":POKE 36869 , 255 :D=0 : POKE 36881,125 


7 


POKE 36879, 31:F0R 1=1 TO 22 : PRINT" [UP, WHITE] )";: NEXT 


8 ] 


FOR 1=8164 TO 8185:POKE I,41:NEXT 


9 ] 


FOR 1=1 TO 500:NEXT:POR 1=1 TO 40 


10 


R=FN X(R):IF PEEK(R)<>32 THEN 10 


11 


POKE R,37:P0KE R+E, INT (RND { 1) * 3 ) +2 : NEXT I 


12 


FOR X=125 TO 24 STEP-1:F0R T=l TO 10:NEXT T 




iPOKE 36881, X:NEXT X 


13 


FOR J=l TO 500:NEXT J 


14 


FOR 1=0 TO NA 


15 


T(I)=FN X(R):IF PEEK(T(I) ) 032 THEN 15 


16 


POKE T{I),35:POKE T{I)+E,.:POKE S3, 200 


17 


FOR J=l TO 200: NEXT J: POKE S3, 0: NEXT I 


18 


0=FN X(R):IF PEEK (0)032 THEN 18 


19 


POKE 0,33:POKE 0+E,5:F0R J=l TO 400:NEXT 


20 


FOR K=250 TO 128 STEP-2:P0KE S3,K:NEXT K:POKE S3,0 


21 


IF D=40 THEN 74 


22 


Q=.:POKE LL,127:IF-( (PEEK(PB)AND 128)=.)THEN Q=l 


23 


POKE LL,255:P=PEEK(PA} 


24 


IF-(CP AND 8)=.)THEN Q=22 


25 


IF{CP AND 16)=.) THEN Q=-l 


26 


IF((P AND 4)=.) THEN Q=-22 
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27 
28 
29 

30 
31 

32 

33 
34 
35 

36 

37 

38 
39 

40 
41 
42 
43 
44 
45 
46 

47 
48 
49 
50 
51 
52 

53 

54 
55 
56 
57 
58 
59 
60 
61 
62 

63 
64 



AND 32)=.) THEN 
THEN 34 



48 



OR PEEK(0+Q)=36 
THEN D=D+1:P0KE 



THEN 34 
S3,230:SC=SC+10 



IF-( {P 

IF Q=0 

S=Q 

IF PEEK(0+Q)=41 

IF PEEK(0+Q)=37 

:POKE S3,0 

POKE 0,32:0=O+Q:POKE 0,33: POKE 0+E,5 

G=0-Z:Y=INT(G/22) :C=G-Y*22 

FOR 1=0 TO NA 

G=T{I)-Z:H=INT(G/22) :P=G-H*22 

IF SF(I)>0 THEN SF ( I ) =SF ( I) -1 : POKE T(I),36 

:P0KE T{I) +E,2:G0T0 47 

IF RND(1)>.7 THEN 43 

R=0:IF H<Y THEN R=22 

IF H>Y THEN R=-22 

IF P<C THEN R=R+1 

IF P>C THEN R=R-1 

F=R:GOTO 4 4 

R=INT(RND{1)*8) :F=F(R) 

IF PEEK{T(I)+F)=33 THEN 60 

IF PEEK(T(I)+F)<>32 THEN 47 

POKE S3,128:POKE T ( I ) , 32:T ( I) =T (I) +F: POKE T(I),35 

:P0KE T{I)+E,. :P0KE S3,0 

NEXT:GOTO 21 

IF W>0 THEN 28 
W=0+S:U=39:GOTO 51 

POKE S3,220:POKE W, 32 :W=W+S :BU=BU+1: POKE S3,0 

IF PEEK(W)=37 THEN POKE W, 37 :W=0 :BU=0 :GOTO 28 

IF PEEK{W)=41 OR PEEK (W) =36 OR BU>10 THEN W=0:BU=0 

:GOTO 28 

IF PEEK(W) =35 
POKE W,U:POKE 
GOTO 50 
FOR 1=1 TO 10 
POKE S3,128:POKE 
FOR 1=0 TO NArIF 
NEXT:W=0:GOTO 28 
POKE T(I) ,32 
FOR 1=1 TO 100 

POKE 0,33:POKE S3,128;POKE 0,34:POKE S3,200:NEXT 

:PDKE S3,0 

NM=NM+1 

IF NM=3 THEN FOR X=l TO 2000:NEXT X:FOR X=24 TO 125 

:POKE 36881, X:NEXT:GOTO 66 



THEN 56 
W+E,0 



W,36:POKE S3 , 200 :NEXT : POKE 
W=T(I)THEN SF(I)=20:I=NA 



S3,0 
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the Gommodore chsdleiise 



65 


GOTO 18 


66 


PRINT" [CLEAR] "; :POKE 36869,240 


67 


PRINT" [DOWNS, RVS, BLACK] YOUR [SPACE] SCORE: "SC 


68 


IF SOHSC THEN HSC=SC 


69 


PRINT" [D0WN2,RED] HIGH [SPACE] SCORE: "HSC 


70 


PRINT" [D0WN3, MAGENTA] PLAY [SPACE] AGAIN? [SPACE] PRESS 




[SPACE,RVS] Y[RVOFF, SPACE] ":FOR X=125 TO 24 STEP-1 




:P0KE 36881, X:NEXT 


71 


GET R$:IF R$=""THEN 71 


72 


IF R$="Y"THEN SC=0 :D=0 : NM=0 :FOR X=24 TO 125 




:P0KE 36881, X:NEXT:G0T0 6 


73 


END 


74 


FOR 1=1 TO 1000:NEXT:D=0:NM=NM-1:NA=NA+1 


75 


IF NM<3 THEN 6 


76 


GOTO 67 





JOIN THE 

COMPUTER 

REVOLUTION 

WITH A MASTERY 

OF THE KEYBOARD! 

In the age of the computer, everyone 
from the school child to the Chairman of 
the Board should be at home at the 
computer keyboard. Soon there will be 
a computer terminal on every desk and 
in every home. Learn how to use it right 
...and have some fun at the same time ! 

Rated THE BEST educational program for the VIC 20™ 
by Creative Computing Magazine 

TYPING TUTOR PLUS WORD INVADERS — $21.95 

(2 programs on one cassette tape for the unexpanded VIC 20^**) 

Typing Tutor plus Word Invaders makes learning the keyboard easy and funi 
Typing Tutor leaches the keyboard in easy steps. Word Invaders makes typing 
practice an eniertaining game Highly praised by cuslomers: 

-Typing Tutoris great!". "Famastic". -Excellen:". Highqvality". 'Asourceot 
great toy and learning for our cnndren", 'Even my little sister likes il 
Invaders is sensafiona*.'" 

Customer comment says it all . . . 

"... and it was everything you advertiseti it would be In three weeks, my 13 year 
old son. who had never typed tje/ore.was typing 35 w.p.m. I had improved my 
typing speed f5 w.p.m. and my hust^and was able to keep up with his college 
typing class by practicing at home. " 
VIC 20 and Commo<Jor« 64 ar« trademarks oT Commodore Elocl^omcs Ltd 




SPECIAL 
VERSION OF 
TYPING TUTOR 
PLUS WORD INVADERS 
NOW AVAILABLE FOR THE 
COMMODORE64^"...$21.95rrape) 

All of the fHatufos o( the VIC 20'" Version and mote 





SPRITE . 
DESIGNER I __ 

by Dr. Lee T. Hill | ^jOT 

$1 6. 95 (Tape) $21 .95 fD/sfc) 

Creaie and ihen transforrn sprites automatically. We 
have the other sprite making programs, but ihis is the 
one we use to make sprites. The automatic transfor- 
mations are great! 

^^^ Shipping and handling $1.00 per 

m5( order California residents add 6% ^^^ 

■■1^ sales tax, ViSA and Mastercard '•i^ 

orders must include luil name as shown on card, card 

number, and expiration date. Free catalog sent with 

Word order and on request 



ACADEmV 

SOFT^^RE 

P.O. Box 9403, San Rafael, CA 9491 2 (115J 499-0850 
Programmers: Write to our New Program Mariigar coneamlng any exeepllonal VIC 20TM or Commodore &Af» game or other program you have developed. 
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high 



Up until recently we had been accepting scores 
on the honor system. But we thought it was time to 
start getting more official. So, from now on, in order 



to have your high score published, you'll have to 
send in a photo of the screen showing the score. 
Don't forget — a simple polaroid will do it. 



BLUE MEANIES 


1,260 

AlanS. Newman, 

Fairfield, CT 


CAR CHASE 


90,440 
Alan Howard, 
Silver Lake, KS 


CLOWNS 


12,360 

Mark Fellows, Littleton, MA 


COSMIC CRUNCHEF 


t 503,610 
Henmine Koch, Anoka, MN 


DRAW POKER 


17,410 

R. Callia, Torrance, CA 


JUPITER LANDER 


207,400 

Christopher Champlain, 

St. Petersburg, FL 


GORF 


301,470 

Tricia Muller, Lafayette, IN 


MIDNIGHT DRIVE 


14.11km 

Nathan Mehl, Newark, DE 


MOLE ATTACK 


368 

Brian Gleason, 

Concord, CA 


MONEY WARS 


65,110 

JohnB, Crockford, Jr., 

Spencerville, OH 


OMEGA RACE 


476,500 (5 ships) 
Gary Kemper (photos in 
hand, address unknown) 


FINBALL 


1.500,000 

Joe Ferrari, Commodore, 

Toronto 


RADAR RAT RACE 


133,920 
Danny Wessels, 
Sykesville, MD 



RAID ON 
FORT KNOX 


SEA WOLF 


29,500 

Alieia Kondalski, 

Toledo, OH 


SKY IS FALLING 


13,810 

Rachel Koons, 
Drexel Hill, PA 


SLITHER 


261 

Amy Miles, Mt. Pleasant, MI 


SUPER ALIEN 


45,700 

Robert Schaeffer, 

Brookline, MA 


SUPER SLITHER 


167 

David Goldberg, 

Richardson, TX 


SUPER SLOT 


7,306 coins 

Jerry Krueger, Gary, IL 


SUPER SMASH 


VIC AVENGER 


14,279 

Eric Tang, Steriing 

Heights, MI 



If your score didn't set a record this time, keep 
playing! Maybe you'll topple these champion 
gamesters next time! c 
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commodora user groups 



User Group Listing. 

ALABAMA 

Hunlsviik- PET Users Club 

9002 Beidair Road 

Huntsville. AL 35802 

Contact Hfi] Oirtry 

Meefims: every 2nd 

Thuisday 

ALASKA 

COMPOOH-T 

do Box 1 18 

Oid Harbor. AK9%43 

(907)2862213 

ARIZONA 

VIC Users Group 

2612 E, Co\/ina 

Mesa,AZ8G203 

Contact Paul Muffulctto 

CataOna Commodore Computer Club 

20 12 Avenida Guillermo 

Tucson. AZaS/ 10 

(602)296-5766 

George Pope 

IstTues. 7i30p,m. 

Metro Computer Store 

Central Arizona PET People 

842 WCille del None 

Chandler, AZ 85224 

(602) 899-3622 

RoySchahrer 

ACUG 

CO Home Computer Service 

2028WC:amelbARd, 

P)ioeniK,AZ 85015 

(602)249-1186 

Dan Deacon 

First Wed. of month 

West Mesa VIC 

2351 S. Standaqe 

Mesa, AZ 85202 

Kenneth S. Epstein 

ATLSona VIC 20-64 Users Club 

232 W 9th Place North 

Mesa.AZ8S201 

Donald Kipp 

ARKANSAS 

Commodore/PET Users Club 

Conway Middle School 

Davis Street 

Conway, AR 72032 

Contact Geneva Bowlin 

Booneville64Club 

do A. R. Hedcifch 

Hementaty School 

401 W, 5tli St 

Boonevllle. AR 72927 

Mary Tall 

CALIFORNIA 

SCPUG Southern California 

F*ET Use rs Group 

c;'o Data Equipment Supply 

Corp. 

8315 Rrestone Blvd. 

Downey. CA 90241 

(213)923-9361 

MeetlngsL Hrst Tuesday ot 

each month 

California VIC Users Group 

&'o Data Kquipmenl Supply 

Corp. 

8315 Rrestone Blvd. 

Downey, CA 90241 

(213)923-9361 

Meetings: Second Tues, of 

each monlh 



Vallw Computer Club 

2006 Magnolia Blvd 

Burbank. CA 

(213) 8^9-4094 

1st Wed. 6 p.m 

Valley Computer Club 

1913 Booth Road 

Ceres. CA 95307 

PUG of Silicon Valley 

223.'>5 Rancho Ventura Road 

Cupertino, CA 95014 

Lincoln Computer Club 

750 E. Yosemite 

Manteca.CA 95336 

John Fung, Advisor 

PET on the Air 

525 Crestlake Drive 

San Francisco. CA 94132 

Max.), Babin, Secretary 

PALS (Pets Around) 

Uvermore Society 

886 South K 

Llvctmore.CA 94550 

(4151449-1084 

Every third Wednesday 

7:30 pm. 

Contact! J. Johnson 

SPHINX 

7515LevistonAve. 

El CetTito,CA 94530 

(415) 527-9286 

Bill MacCracken 

San Diego PUG 

do D. Costarakls 

3562 Union Street 

(71'1123&-7626 

7 a,m.-4p.m. 

Walnut Creek PET 

Users Club 

18 15 Ygnado Valley 

Road 

Walnut Creek, CA 945% 

Jumpd Wizards 

8700 Catena St 

Riverside, CA 92509 

781-1731 

Walter J. Scott 

Tlie Commodore ConnecHon 

2301 Mi&^onSt 

Santa Cru2,CA 95060 

(408)425-8054 

BudMassey 

San Fernando Valley 

Cotnmodore Users Group 

21208 Nashville 

Chatswonh, CA 9131 1 

(213) 709-4736 

Toin Lynch 

2nd W!ed. 7:30 

VACUUM 

277 F. 10th Ave. 

Chlco, CA 95926 

(9161891-80^ 

Mike Casdia 

2nd Monday of month 

VIC 20 Users Group 

2791McBrideLn. #121 

SantiiRosa, CA 

(707) 575-9836 

Tyson Verse 

South Bay CommodoTB Users Group 

14a2Wil8thSt 

Torrance, CA 90501 

Contact Earl Evans 



Slo VIC 20/64 Computer Oub 
1766 9th St 
LosOsos, CA 

Tire Diamond liar R.O.R Users Club 

2644Amelgado 

HadcndoHgts.,CA91745 

(213) 333-2^5 

Don Mcintosh 

Commodore Interest Association 

c^o Computer Data 

14660 La Paz Dr. 

Victorville.CA 92392 

Mark Flnley 

Fairfield VIC 20 Club 

1336McKlnleySt. 

Fairfield, CA 94533 

(707)427-0143 

Al Brewer 

1st & 3rd Tucs. at 7 p.m. 

Computer Bam Computer Club 

319 Main St 

Suite #2 

SaHnas.CA 93901 

7570788 

S- Mark Vanderbilt 

Humboldt Commodore Group 

RO. Box 570 

Areata, CA9:)521 

B, Turner 

Napa Valley Commodore 

Computer Club 

c/o Liberty Computerware 

2680 Jefferson SL 

Napa, CA 94558 

(707) 252-6281 

Mick Winter 

1st & 3rd Mon. of month 

S.D. East County C-64 User Gioup 

6353 Lake Apopka Place 

San Diego, CA 92119 

(619)698-7814 

Linda Schwartz 

Commodore Useis Group 

4237 Pulmetifl Ct 

Santa t^ria.CA 93455 

(805) 937-4174 

Gilbert Vela 

Bay Area Home Computer Asso. 

Walnut Creek Group 

1406 N. Broadway at Cypress 

Walnut Creek, CA 94596 

WilCossel 

Sat 11 a.m. to 3 p.m. 

Amateurs and Arteslans Computing 

P.O. Box 682 

Cobb, CA 9,5426 

Manlcca VIC 20 Users OrganlzatJon 

429 N. Main St 

Manteca,CA 95336 

Gene Rong 

Pomona \Mey Vic Users Group 

1401 W 9lh. #77 

Pomona, CA 91766 

(714) 620-8889 

Mark Jocrner 

Ist & 3nl Wed. of month 7 p.m. 

20/64 Users Group 

P.O. Box 18473 

San Jose. CA 95158 

Don Cracraft 

1st Sunday. 6 p.m., Mercury Sav 

COLORADO 

VICKIMPET Users Group 
4 Waring Lane. Greenwood 
Wlage 



Littleton, CO 80121 

Contact: Louis Roehrs 

Colorado Commodore Computer Qub 

2187 S. Golden Ct 

Denver, CO 80227 

986-0577 

Jack Moss 

Meet: 2nd Wed. 

CONNECTlCin' 

John F, Garbarino 

Skiff Lane Masons Island 

Mystic. CT06'i55 

(203) 536-9789 

Commodore User Club 

Wcthcrsflcld Higli School 

411WolcottHiirRoad 

Wethers field, CT 06109 

Contact: Daniel G. Spaneas 

VIC Users Club 

Co Edward BarszczEwsld 

22 Tunxis Road 

West HatHord,CT 06107 

New London County 

Commodore Ckib 

Doolittle Road 

Preston, CT 06360 

Contact; Dr. Walter Doolittle 

FLORIDA 

Jacksonville Area 

PET Society 

401 Monument Road. #177 

Jacksonville, FL 32211 

Richard Prestien 

6278 SW 14th Street 

Miami, FL 331 44 

South Florida 

F^T Users Grxxjp 

Dave Young 

7170 S.W. nth 

West Hollywood, FL 33023 

(305) 987-6982 

VICUsersClub 

do Ray Thigpen 

4071 EdgcwatGr Drive 

Orlando, FL328M 

PETs and Friends 

129 NE 44 St 

Miami. FL 33 137 

Richard Plumer 

Sun Coast VICs 

RO. Box 1042 

Indian Rocks Beach, FL 

33535 

Marti Weddell 

Bay Commodore Users 

Group 

<yo Gulf Coast Computer 

Exchanoe 

241 N. Tyndall Pkwy, 

RO. Box 6215 

Panama City. FL 32401 

(9041 785-M41 

Richard Scofleld 

Gainesville Commodore 

Users Qub 

3604-20ASW31stDr, 

Gainesville, FL 32608 

Louis Wallace 

64 Users Group 

PO. Box 561^9 

Miami. FL 33156 

(305) 274-3501 

Eydie Sloane 
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Brandon Users Group 

lOSAnglewoodDr. 

Brandon. FL 33511 

(813) 68rj-5I38 

Paul Daugherty 

Commodore 64/VIC 20 User Group 

Martin Marietta Aerospace 

P.O. Box 5837. MP M2 

Orlando, FL 32865 

(30^352-3252/2266 

Mr. Earl Preston 

Brandon Comnimlorc Users Group 

414 !i. LuTTbdcnRd. 

Brandon, FL 33511 

Gainesville Commodore Users Group 

Santa Fe Comnnunlty College 

Gainesville, FL 326(12 

James E. Birdsell 

Commodore Computer Club 

PO.Box21i;» 

St, Petersburg, FL 33742 

Comrnodore Users Group 

545 E.Park Aw. 

Apt. #2 

Tallahassee, FL 32301 

(904) 224-6286 

Jim Neill 

The Commodore Connection 

PO Box66S4 

West Palm Beach. FL334(H 

a Shift OH 

PO. Bon 548 

Cocoa, FL 32922 

Mike Schnoke 

Sal. momings^'cvery 4 to 6 weeks 

GEORGIA 

VIC Educators Users Group 

Cherokee County Schools 

110 Academy Sf 

Canton. G A 301 14 

Dr. Al Evans 

BIdg. 68, FLETC 

Glynco. GA 31524 

Richard L. Young 

Victims 

PO. Bon 467052 

Atlanta, GA 30346 

(404) 922-7068 

Eric Ellison 

HAWAII 

Commodore Users Group of Honolulu 

c/oPSH 

824 Bannister St. 

Honolulu, HI 

(808) 848-2088 

3rd Fri. every month 

20/64 Hawaii 

PO. BoK y66 

Kailua, HI 96734 

Wes Good paster 

IDAHO 

GHS Computer Club 

e/o Grangeville High School 

910S.DSt. 

Grangeville, [D!B530 

Don Kissinger 

S.R.H.S. Computer Club 

c/o Salmon River H.S. 

Riggins, ID 83549 

Barney Foster 

Commodore Users 

548 E. Center 

Pocateao, ID 83201 



(206)233-0670 

Leroy Jones 

Eade Rock Commodore Users Group 

900S. Emerson 

Idaho Falls. ID 83401 

Nancy J. Fucker 

ILUNOIS 

Shelly Wemikoff 

2731 N. Milwaukee 

Avenue 

Chicago, IL 60647 

VIC 20/64 Users Support 

Group 

c/o David R. Tan^n 

114S, Clark Street 

Pana,IL 62557 

(217) 562-4568 

Central Illinois PET User 

Group 

635 Maple 

Mt. Zion. IL 62549 

(217)864-5320 

Contact: Jim Qldfield 

ASMTTED User Group 

200 S, Century 

Rantoul, IL 61866 

(2171 893-4577 

Contact Brant Anderson 

PET VIC Club (PVC) 

OOS.Uncdn 

Mundelein.lL 60060 

Contact; Paul SchmWt. 

President 

Rockford /\rea PET Users 

Group 

1608 Benton Street 

Rockford, IL 61107 

Commodore Users Oub 

1707 East Main SL 

OIney.L 62450 

Contact: David E. Lawless 

VIC Chicago Club 

3822 N, Hell Ave. 

Chicago, IL (i0618 

John L. RoseTigarlen 

Chicago Commodore 64 

Users & Exchange Group 

PO. Box 14233 

Chicago, IL 60614 

Jim Robinson 

Fox Valley PET Users 

Group 

8.33 Willow St. 

Lake in the Hiils, IL 60102 

(312)658-7321 

Art DeKneef 

The Commodore 64 Users 

Group 

P.O. Box 572 

Glen EIVn,[L 60137 

(312) 790-4320 

Gus Pagnotta 

Oak Lawn Commodore Users Group 

The Computer Store 

1 1004 S. Cicero Ave. 

Oak Uwn,L 60453 

(312) 499- 1300 

EJob Hugiies 

The Kankakee Hackers 

RR#l.Box279 

Sl Anne, IL 60964 

(815)933-4407 

Rich Westeiman 



INDIANA 

PET/64 Users 

10136 E.96lhSl. 

Indianarroils, IN "16256 

(317)842-6353 

Jenty Brinson 

Cardinal Sates 

6225 Coffman Road 

Indianapolis. IN 46268 

(317)298-9650 

Contact: Carol Wheeler 

CHUG (Commodore 

Hardware Users Group) 

12 104 Meadow Uine 

Oaklandon. IN 46236 

Contact: Ted Powell 

VIC Indy Club 

PO. Box 11543 

Indianapolis. IN 46201 

(317)898-8023 

Ken Ralston 

Northern Indiana 

Commodore Entimsiasts 

927 S. 26th St. 

South Bend,m466 15 

Eric R. Bean 

Commodore Users Group 

1020 Michigan Ave. 

Logansport IN 46947 

(219) 722-5205 

Mark Bender 

Computer Workshop VIC 20*64 Club 

282 S. 600 W. 

Hebron, IN 46,341 

(219) 988-4535 

Mary O'Bnnger 

The National Science Clubs 

of America 

Commodore Users Division 

7704 Taft SL 

Menlllvlllc. IN 46410 

Brian Lepley or Tom Vlaslc 

East Ccniral Indiana VIC User Group 

Rural Route if 2 

Portland, IN 47371 

Sleptien Erivin 

National VIC 20 Program Exchange 

102 Hickory Court 

Portland, IN 47371 

(219) 726-4202 

Stephen Erwin 

Commodore Computer Club 

3814 Ten-a Trace 

Evansville. IN 47711 

(812) 477-0739 

John Patrtck, President 

IOWA 

Commodore User Group 

114 8th St. 

Ames, lA 50010 

Quad City Commodore Club 

1721 Grant St. 

Bettendori. lA 52722 

(319)355-2641 

John Mgas 

Commodore Users Group 

965 2nd Sl. 

Marlon, lA 52302 

(319) 377-5506 

Vem Rotert 

3rd Sun. ol month 

Siouxland Commodore Club 

2700 Sheridan St 

Sioux City. lA 51104 



(712) 258-7903 

Gaiy Johnson 

1st S( 3rd Monday of month 

421 W.GihSt 

Waterloo, lA 50702 

(319)232-1062 

Frederick Volker 

Commodore Computer Users 

Group of Iowa 

Box 3140 

Des Moines, lA 50315 

(515) -Atiuna^ or (515) 287-1378 

Laura Miller 

KANSAS 

Wichita Area PET 

Users Group 

2231 Bullinger 

Wichita, KS 67204 

(316)838-0518 

Contact: Mel Zandler 

Kansas Commodore 

Computer Club 

101 S. Bureh 

Olalhe, KS 66061 

Contact: Paul B. Howard 

Commodore Users Group 

6050 S. 183 St. West 

Viola. KS 67149 

Walter Lounsbery 

Walnut Valley Commodore User Group 

1003 S. 2nd St. 

Arkansas City, KS 67005 

Bob Morris 

KENTUCKY 

VIC Connection 

1010 S. Elm 

Henderson. KY 42420 

Jim Kemp 

LOUISIANA 

Franklin Parish Computer 

Club 

i*3 Fair Ave. 

Wlnnisboro, LA 71295 

James D. Mays. Sr 

NOVA 

917 Gordon St. 

NewOrleans, LA 70117 

(504) 948-7643 

Kenneth McGnider. Sr 

VIC 20 Users Group 

5064BowdonSL 

Man-ero, LA 70072 

(504) 341-5305 

Wayne U. Lowery, R.N. 

MARYLAND 

Assoc, of Personal 

Computer Users 

5014RodmanRoad 

Bethesda, MD 20016 

Blue TUSK 

7CX) East Joppa Road 

Baltimore, MD 21204 

Contact: Jim Hauff 

House ot Commodore 

aSriS Satyr Hill Road 

Baltimore, MD 21234 

Contact: Em est J. Rscher 

Long Lines Computer Club 

323N.ChariesSt,Rm.201 

Baltimore. MD 21201 

Gene Moff 
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commodore user sronps 



VIC&64UscrsGroup 

T)u> Boyds Connt'cfion 

21000 Cbrksburq Rd. 

Boyds, MD 208^1 

(301)428-3174 

Tom DeRfagi 

V!C 20 Users Group 

23 Coventry Lane 

HaytTslown.MD 21740 

Joseph Hutkowskt 

Hauerstown Users Group 

1201-B Marshall St. 

Hagerstfiivii, MD2174() 

[301)790-0968 

Greg Stewart 

1st & 3rd Friday of niontli 5:30 p.m. 

Rockville VlC/64 Usens Group 

5112 Parktawn Terrace 

Apl, iCKB 

RoekuillL'. MDaoa'ia 

[301)231-7823 

Tom Pounds 

The Compucats' Commodore 

Computer Club 

680 W Bd Air Ave 

Abt-rdcen, MD 21001 

(301)272 0472 

Betty Jane Schuelcr 

MASSACHUSETTS 

Eastern Massachusetts 

VIC Users Group 

c/ (.J Frank Ordway 

7 Flagy Road 

Marlboro, MA 02173 

VIC Users Group 

c/o [t<.'[n.' I-Ioftmaii-Sholar 

!<):u;.itdi!nSt. 

Ni'wllwrn, MA 02192 

Commodore Users Club 

Stoualiion High School 

Stoughton, MA 02072 

Contact: Mike Lennon 

BerksJilre PET Lovers 

CBM Users Gioup 

TdConic Mtqh 

BtLsfteld, m 01201 

The Boston Computer 

Society 

Three Center Plaza 

Boston. MA 02108 

(617) 367-8080 

Mary E. McCann 

VIC hiiei(<ice Club 

c/o Prfxter & Garrible Insi Shop 

780 Wasblngtun St. 

Quincy. MA 02169 

C. Gary Hall 

MajiSpet Commodore Users Group 

P.O. Box 307 

East Taunton, MA 02718 

David Rogers 

Raytheon Commodore Users Group 

Raytlieon Company 

Hortwetl Rd. GRA-6 

Bedlord, MA 01730 

John Rudy 

Commodore 64 Usci^ 

Group of Tlie Berks hires 

184 Highland Ave. 

Rttsfield. MA 01201 

Ed Rucinski 



VIC Users Club 

University ot Michigan 

School of Public Health 

Ann Arbor, Ml 4810'J 

Contact: John Gannon 

Commodore User Club 

32303 Columbus Drive 

Wanen, Ml 48093 

Contact; Robert Stelnbrecher 

Commodore Users Group 

c/o Family Computer 

3947 W 12 Mile Rd. 

Berkley. Ml 48072 

W, Michigan VIC 20-64 Users 

1311P(irtl,maNE 

Grand Rapids. MI 49505 

(616)459-7578 

Jim D'Haem 

VIC (or Business 

6027 Orchard Ct. 

Unslng, Ml 48910 

Mike Sfarotta 

South Computer Club 

South Jr. High School 

45201 Owen 

Bdlevaie.MI48m 

Ronald Ruppen 

Commodore Users Group 

c/o Eaton Rapids Medical Qinic 

101 Spicerville Hwy. 

Eaton Rapids. MI 48827 

AlbenMelnkelll. MD 

South East Michigan Pet 

Users Croup 

Bo)t214 

Fanrlngton, Ml 48024 

Nomi Bsenburg 

Commodore Computer Club 

4106 Eastman Rd. 

Midland, MI 48640 

(517)835-5130 

Jot^n Walley 

9:30 p.m. Sept/May 

VIC. 64. PET Users Group 

14439 ArlJsRd, 

Union Lake, Ml 48085 

363 8539 

Bert Searing 

VIC Commodore User Club 

486 Michigan Ave. 

Mariesville, Ml 48040 

(313)364-6804 

M. Gajthier 

ComputerTowne 

35171 Grand River 

Famiington, Ml 48024 

(313)471-4216 

MINNESOTA 

MUPCT (Minnesota Users 

of PET) 

PC. Box 179 

Annandale,MN 55302 

c/o Jon T Minerich 

Twin Cities Commodore 

Computer Club 

5623 lues Lane 

Maple Grove. MN 55369 

(612)424-2425 

Contact: RoUie Schmidt 

MISSOURI 

KCPUG 

5214 Blue Ridge Boulevard 

Kansas City, MO 64133 

Contact: Rick West 

[815)356-2382 



Commodore User Group of St. Louis 

Box 6653 

St. Louis, MO f);il25-0653 

Dan Weldman. f^ew Members 

1541 Swallowtail Dr. 

Sl Louis, MO 63 144 

314-968-4409 

VIC INFONET 

PO. Box 1069 

Branson, MO 65616 

(417)334-6099 

Jory Sherman 

Worth County PET Users 

Group 

Grant City MO 

(815) 564-3551 

David Hardy 

Mid-Missouri Commodore Club 

1804VandlvBrDr. 

Columbia, MO 65201 

(314)474-4511 

Phil Bishop 

MONTANA 
Powder River 
Computer Club 
Powder River County 
High School 
Broadus,MT 59317 
Contact: Jim Sampson 

Commodore User Club 
1109 West Broadway 
Butte, MT 59701 
Contact: Mike McCarthy 
NEBRASKA 

Greater Omaha Commodore 64 

Users Group 

2932 Leawood Dr. 

Omaha, NE 68123 

(402) 292-2753 

Bob Quisenlierry 

NEVADA 

Las Vegas PET Users 

Suite 5 315 

5130 E, Charleston Blvd. 

Us Vegas, NV 89122 

Gerald hlasty 

NEW JERSEY 

Amateur Computer Group 

IS Alpine Drive 

Wayne, NJ 07470 

Somerset Users Club 

49 Marcy Street 

Somerset. NJ 08873 

Contact: Robert Holzer 

Educators Mviuiry 

RO. Box 186 

Medford.NJ 08055 

(509)953-1200 

John Handheld 

Parsippany Cotnputer Group 

51FemcIiffRd. 

Morris Plains, Hi 07950 

(201)267-5231 

Bob Searing 

VIC-TIMES 
46 Wayne Street 
Edison, H) 088 1 7 
Thomas R. Motnar 
VIC 20 User Group 
67 Distler Ave. 
W. Caldwell, NJ 07006 
(2011284-2281 
G. M. Amin 



VIC Software Development Qub 

77FomalhautAve. 

SeweU. NJ 08OS0 

H. P. Rosenberg 

ACGNJ PET/VIOCBM 

User Group 

30 Riverview Ten. 

Belle Mead. NJ 08502 

(201)359-3862 

J. M. Pylka 

South Jersey Commodore Computer 

Users Club 

46-B Monroe Park 

Maplu Shade, NJ 08052 

(609) 667-9758 

Mark Orthner 

2ndFn. of month 

NEW HAMPSHIRE 

Northern New England 

Computer Society 

RO. Box 59 

Berlin. NH 03570 

TBH VlC-NlCs 
RO. Box 981 
Salem, NH 03079 
NEW MEXICO 

Commodore Users Group 

6212 Karison, NE 

Albuquerque, NM 87113 

1505)821-5812 

Danny B^Tne 

NEW YORK 

Capital District 64/V!C 20 

Users Group 

363 Hamilton St. 

Albany NY 12210 

(518)436-1190 

Bill Ptzer 

Long Island PET Society 

Ralph Bressler 

Harborfields HS 

Taylor Avenue 

Greenlawn, NV 1 1740 

PET User Club 

of Westchester 

RO. Box 1280 

White Plains, NY 10602 

Contact! Ben Meyer 

LIVE (Long Island 

VIC Enthusiasts) 

17 Rcadilly Road 

GreatNeck, NY 11023 

Contact: Arnold Friedman 

Commodore Masters 

25 Croton Ave, 

Staten Island, NY 10301 

Contact: Stephen Farkouh 

VIC Users Club 

76 Radford St. 

Staten Island, NY 10314 

Contact: Michael Frantz 

Rockland County Commodore 

Users Group 

c/o Ross Garl>er 

14 Hillside Court 

SuKem. NY 10901 

(914)354-7439 

Westchester County VIC 

Users Group 

PO. Box 146 

Pelham, NY 10S52 

Joe Brown 

SPUG 

4782 Boston Post Rd. 
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Pulham, NY 10803 
Pout Skipski 
V[C 20 User Club 
151-28 22nd Ave. 
Whitestone, NY 11357 
Jean F. Coppola 

VIC 20 User Club 
339 Park Ave. 
Babylon, ^fY 11702 
irjlG)£)69-t)126 
Gaiy Overman 

VIC User Group 

1250 Ocean Aw. 

Brooklyn, NY 11230 

(212)85'3-3030 

Dr. Levitt 

L&M Computer Club 

VIC20&64 

4 Clinton St. 

Tutly, NY 13159 

(3151 696-8904 

Dick Mlckclson 

Commodore Users Group 

1 Corwln PI. 

Uke Katrine, NY 12449 

J. Richard Wright 

VIC 2()/Coinmo<lore 64 

Users Group 

31 Maple Dr. 

Undenhurst, NY 11757 

(5161957-1512 

Pete Lobol 

VIC InfoimaHon Exchange 

Club 

336 W. 23 St. 

Deer Patk, NY 11729 

Torn Schlcgel 

SASE & phone please 

New York Commodore 

Users Group 

380 Riverside Dr., 7Q 

New York, NY 10025 

(212)566-6250 

Ben Tunkfldng 

Hudson Valley Commodore Ctub 

1 Manor Dr. 
Woodstock. NY 12498 
ES. Goh 

Isl Wednesday of month 

UVICS (Long Island VIC Society) 

20Spy(^as5 Lane 

East Setauket, NY 11733 

(516)751-7844 

Liwrenct." Stelani 

VIC Usb-rs Group 

c/o Stoney Brook Learning Center 

1424 Stoney Brook Rd. 

Stoney Brook, NY 1 1790 

(516)751-1719 

Robert Wurtzel 

Pough keeps! e VIC User Group 

2 Brooklands Farm Rd. 
Poughkeepslc, NY 12601 
(914) 4624518 

Joe Steinman 
VIC 20 User Group 
Paper Service Division 
Kodak Park 
Rochester. NY 14617 
David Upham, Sr. 
Manhatten 64 
426 West 48tii 
New York. NY 10036 
(212) ,307-6519 
Charles Honce 



Adirondack Commodore 64 Users Group 
205WoodbumAve. 
Saratoga Scrinss. NY 
1518) 584-8960 

Paul Klompas 

NORTH CAROLINA 

Amateur Radio PET Users Group 

RO. Box 30594 

Raleigh, NC 27622 

Contact: Hank Roth 

VIC Users Club 

c/o David C. Fonenberry 

Route 3, Box 35 1 

Lincolnton. NC 28092 

Microcomputer Users Club 

BoKl7142BethabaraSta, 

Wmsion-Salem.NC 27116 

Joel D. Bro\t7i 

VIC Users Club 

Rl. 11, Box 686 

Hickory, NC2K601 

Tim Gromlouits 

OHIO 

Diiytoii Area PET 

User Group 

933 Livingston Drive 

Xenia, OH 45385 

B, Worby, President 

(5131848-2065 

J. Watson. Secretary 

(513)372-2052 

Centra) Ohio PET 

Users Group 

107 S. We St moor Avenue 

Columbus. OH 43204 

(614)274-6451 

Contact; Philip H. Lynch 

Commodore Computer Club o( Toledo 

734 Donna Drive 

Temperance, Ml 48182 

Gerald Carter 

Chill Icothe Commodore 

Users Group 

PO. Box211 

Chillicothc, OH 45601 

William A. Chaney 

Licking County 64 Users Group 

323 Schuler St. 

Newark. OH 4;^055 

(614) 345-1327 

11433PeariRd. 

Strongsville, OH 44136 

Paul M. Warner 

OKLAHOMA 

Southwest Oklahoma 

Computer Club 

c/o Commodore Chapter 

PO. Box 6646 

Lawlon, OK 73504 

1:30 at Lawton City Library 

Tulsa Area Commodore Users Group 

Tulsa Computer Society 

RO. Box 15238 

Tulsa. OK 74 112 

Annette Hinshaw 

Commodore Oklahoma Users Qub 

4000 NW 14th St. 

Oklahoma City, OK 73107 

(405)943-1370 

Stanley B. Dow 

Commodore Users 

Box 268 

Oklalioma City, OK 73101 

Monte Maker, President 



OREGON 

NW PET Users Group 

JohnF. Jones 

2134NE 4.5th Avenue 

Portland. OR 97213 

PENNSYLVANIA 

PET User Group 

Gene Beats 

RO. Box 371 

Montgomeiyvltle. PA 18936 

Penn Conference Computer Club 

O'o Penn Con(erence o( SDA 

720 Museum Road 

Reading. PA 19611 

Contact: Dan R. Knepp 

PACS PET Users Group 

20th&OlneySts. 

Philadelphia, PA 19141 

(215)951-1258 

Stephen Longo 

Glen Schwartz 

B()7 Avon 

Philadelphia, PA 19116 

Gene Planchak 

4820 Anne Lane 

Shatpsville, PA 15150 

(412)962-9682 

PPG ( Rttsburgh PET Group) 

6' o Joel A, Casar. DMD 

2015 Garrick Drive 

Rttsburgh, PA 15235 

(4121371-2882 

Westmoreland Commodore 

Users Club 

c/o DJ & Son Bectronics 

Colonial Raza 

Utrobe, PA 15650 

Jim Mathers 

COMPSTARS 

440 Manatawny St 

Pottstown, PA 19464 

Liny Shupin ski, Jr. 

Meet at Audio Video 

Junction 

Commodore Users Club 

3021 Ben Venue Dr, 

Grecnsburg, PA 15601 

1412)836-2224 

Jim Mathers 

VIC 20 Programmers, Inc. 

a'o Watson Woods 

1 15 Old Spring Rd. 

Coatesville, PA 19320 

Robert Gougher 

G.R.C. User Club 

300 Whltlun Hollow Rd. 

NewKensington, PA 15068 

Bill Bolt 

NADC Commodore Users Club 

2480akdaleAve. 

Horsham, PA 19044 

Norman McCrary 

CACC (Capitol Area Commodore 

Club) 

134 College Hill Rd. 

Enola. PA 17025 

(71717322123 

Lewis Buttery 

Union Deposit Mall at 7 p. m, 

C/C Computer Owners Group 

c/o Gilbert Associates, Inc. 

RO. Box 1498 

Reading. PA 19607 

Extension 6472 

Jo Lambert (215) 775-2600 



Boeing Employees Personal 

Coniputer CluD 

Tlie Boeing Vertol Co. 

PO. Box 16S58 

Pliiladelphia. PA 19142 

(215)522-2257 

Jim McUiughlin 

South Central PA Commodore Club 

2 109 Cedar Run Dr. 

Camp Hill. PA 170U 

(717)763-4219 

ilitvld Perslng 

Main Line Commodore Users Group 

IMLCUG) 

o'o Main Line Computer Cenler 

1046 General Allen Lane 

West Chester. PA 193S0 

(215)388-1581 

Emii Vol check 

PUERTO RICO 

CUG of Puerto Rico 
RFD#l.Boxl3 
San Juan, PR 00914 
Ken Burch 
VIC 20 User Group 
655 Hernandez St. 
Miramar, PR 00907 
Robert Morales, Jr 
RHODE ISLAND 
Irving B. Silverman, CPA 
160 Taunton Ave. 
E Providence. RI 029 14 
Contact: Michelle Chavanne 
Newport VIC/64 Users 
lOMaitlandCl 
[Newport, Rl 0284O 
(401)849-2684 
Dr. Matt McConeghy 
The VIC 20 Users Club 
Warwick, RI 028S6 
Tom Davey 

SOUTH CAROUNA 

[Beaufort Technkal Cc^lege 
lOOS. RibautRd. 
Beaufort, SC 29902 
Dean of Instruction 

Computer Users Society 

o( Greenville 

Horiion Records-Home Computers 

347 S. Pteasantburg Dr. 

Greenville, SC 29607 

(803) 235-7922 

Bo Jeanes 

Commodore Computer Qub o( Cdumblo 

318 Quineannon Dr. 

Columbia, SC 29210 

Buster White Sect /Treas, 

SOLITH DAKOTA 

PET User Group 

5 15 South Duff 

MitcheU, SD 57301 

(605)996-8277 

Contact: Jim Dallas 

UIC/64UseisClub 

608 West 5th 

Pierre, SD 57501 

(605) 224-4863 

Larry Lundeen 

TENNESSEE 

River City Computer 

Hobbyists 

Memphis, TN 

1st Mon. at Main Library 
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commodore user sroups 



Noihvilk' Commodore Users Group 

RO- Box 1Z12H2 

Nasliville.TN372I2 

3rd Thurs. M Cumberland Mus 

Commodore User Club 

Metro Computer Center 

1800 Dayton Blvd. 

Chattanooga, TN 37405 

Mondays 7:30 pm 

Mttro-KnaKVilte 64 Users Club 

7405 0xmooiRd.,Rt. #20 

Knoxvine,'rN;i7y21 

(615) 938-3773 

Ed Prilchard 

TOtAS 

SCOPE 

1020 Summit Circle 

Canolton, TX 75006 

PET Users 

2001 Bryan Tower 

Suite 3S00 

Dallas. TX 75201 

Larry Wiltiams 

RO Box 652 

San Antonio, TX 78293 

PET User Group 

John Bowcn 

Texas A & M 

Microcomputer Club 

TexasA&M.TX 

CHUG [Commodore Houston 

Users Group) 

87.HH Wildforcst 

Houston, TX 77088 

(713)999-3650 

Contact: John Wallier 

Corpus Christ] Commodores 

3650 Topcka St 

Corpus Chrisli. TX 78411 

(512)852-7665 

Bob McKeJvy 

Commodore Usets Group 

5326 Cameron Rd. 

Austin. TX 78723 

1512)459-1220 

Dr Jerry D, Frnjec 

VIC Users Group 

381764th Dr. 

Ubbocl<.TX 79413 

Southeast Houston V!C 

Uset5 Group 

1142^ Kirk Valley Dr. 

Houston. TX 77089 

(713) 481. 6653 

64 Users Group 

2421 Midnight Circle 

Piano. TX 75075 

S,G Grodln 

Savid Computer Club 

312 West Alabama 

Suite 2 

Houston. TX 77006 

Davi Jordan, Chairman 

Gulf C<wst Commodore Users Group 

RO, Box 128 

Corpus ChrisH. TX 78403 

(5121887-4577 

Lawrence Hernandez 

Mid -Cities Commodore Club 

413 Chisolm Trail 

Hurst, TX 76053 

Garry Wordelman 



UTAH 

Utah PUG 

Jack Reck 

2236 Washington Blvd 

Ogden, UT 84401 

The Commodore Users 

Club 

742 Taylor Avenue 

O^en, UT 84404 

Contact: Todd Woods Kap, 

President 

David J, Shreeue, 

Vice President 

Ttie VIClic 

799 Ponderosa Drive 

Sandy, UT 84070 

Contact: Steue Graham 

VIC 20 Useis 

324 N. 300 W. 

Smithfleld, UT 84335 

Dave DeCotso 

Northern Utah VIC & 64 

Users Group 

RO, Box 533 

Garland. UT 843 12 

David Sanders 

The Commodore Users Group 

652 West 700 North 

Clearfield, UT 840 15 

(801)776-3950 

Rodney Keller. Richard Brenchly 

VIRGINIA 

Northern VA PET Users 

Bob Karpen 

2045 Eakins Court 

Reston, VA 22091 

(8031860-9116 

VIC Users Group 

Rl 2, Box 180 

Lynchburg. VA24501 

Contact: iSck Rosslgnol 

VIC Users Group 

c/o Donnle L Thompson 

1502 Harvard Rd. 

Richmond, VA 23226 

Dale City Commodore 

User Group 

P.O. Box 2aw 

Dale City. VA 22193 

(703) 680-2270 

James Hogler 

Tidewater Commodore 

Users Group 

4SH7We5tgroveRd 

Virginia Beach. VA 23455 

Fred Monson 

Fredericksburg Area 

Computer Enthusiasts 

PO. Box 324 

Locust Grove. VA 22508 

[703)972-7195 

Michael Parker 

Commonwealth 20/64 

Users Group 

1773 Wainwrtght Dr. 

Reston, VA 22090 

(703)471-6325 

Till Cnrawnn, Jr 

VIC 20 Victims 

4301 Columbia Bkerf410 

Arlington, VA 22204 

(703)920-0513 

Mike Spengel 



Peninsula Commodore 64 

Users Group 

124 Bumham Place 

Newport News, VA 23606 

[804)595-7315 

Richard G Wilmoth 

WASHINGTON 

NW PET Users Group 

2565 Dexter N. 3203 

Seattle, WA 98 109 

Contact: Richard Ball 

PMT Users Group 

c/o Kenneth Tung 

1800 Taylor Ave. N 102 

Seattle, WA 98102 

Whidbey Island Commodore 

Computer Club 

947 N, Burroughs Ave. 

Oak Harbor. WA 98277 

Michael D. Clark 

Centra! Washington 

Commodore Users Group 

1222 S 1st St. 

Yakima, WA 98902 

Tim McElroy 

Blue Mountain Commodore 

Users Club 

667 Canary Dr. 

Walb Walla, WA 99362 

(509) 525-5452 

Keith Rodue 

Spokane Commodore User Group 

N, 4311 Whltehouse 

Spokani.-, WA 99205 

iim) 328- 1464 

Slan White 

WEST VIRGINIA 

Personal Computer Club 

PO. Box 1301 

Charleston. WV 25325 

Cam Cravens 

WISCONSIN 

Sewpus 

q/o Theodore J. Polomnski 

PO, Box21851 

Milwaukee, Wl 53221 

Waukesha Area Commodore 

UserGroup(WACUG) 

256'/2 W. Broadway 

Waukesha, Wl 53186 

Contact: Walter Sadler 

(414)547-9391 

Commodore User Group 

1130 Elm Grove St, 

Elm Grove, Wl 53122 

Tony Hunter 

Commodore 64 Software 

Exchange Group 

P.O, Box 224 

Oregon, Wl 53575 

E. J. Rosenberg 

C.LU.B. 84 

6156 Douglas Ave, 

Caledonia, Wi 53 108 

(414)8:^5-4645pm 

Jack White 

2nd &it every month 10:00 am 

VIC-20 & 64 User Group 

522 West Bergen Dr, 

Milwaukee. Wl 53217 

{414)476-8125 

Mr. Wachll 



Menomonle Area Commodore 

Users Group 

510 12th St 

Menomonle, Wl 54751 

(715) 235-4987 

Mike Williams 

C.U.S.S.H. 

3614 Sovereign Dr. 

Racine, Wl 53406 

(414)554-0156 

Tim Tremmel 

3rd Saturday of month 

WYOMING 

Commodore Users Club 

C/oVldeoStatlon 

670 North 3rd #B 

Laramie. WY 82070 

(307)721-5908 

Pamela Nash 

CANADA 

Toronto PET 

Users Group 

381 LavkTence AwJ, West 

Toronto, Ontario, Canada 

M5M 1B9 

(416)782-9252 

Contact: Chris Bennett 

PET Users Club 

c/o Mr Brown 

Valley Heights Secondary School 

Box 1.59 

Langlon,Ont.N0ElG0 

Vancouver PET Users Group 

PO Box 91 164 

West VarKouver. British 

Columbia 

Canada V7V3N6 

CCCC (Canadian 

Commodore Computer Club) 

CO Snictiy Commodore 

47 Coachwood Place 

Calgary, Alberta. Canada 

T3H1E1 

Contact; Roger Olanson 

WRU.G 

9-300 Ennlsklllen Ave, 

Winnipeg, Manitoba R2V0H9 

Larry Sfeufeld 

VIC-TIMS 

2-830 Helena St, 

Trail, British Columbia 

V1R3X2 

(604) 368-9970 

Greg Goss 

Arva Hackers 

Med way High Schod 

Arva, Ontarto NOM ICO 

D, Lerch 

Nova Scotia Commodore 

Computer Users Group 

66 Landrace Cres, 

Dartmouth, N,S. B2W 2P9 

Andrew ComwaU 

BonriMlle VIC Cursors 

Box 2 100 

Bonnyvllle, Alberta TOA OLO 

(403) H26-3W2 

EdWittchen 

HNLAND 

VIC -Club In Helsinki 

c/o Matti /Vamio 

Linnustajankj 2B7 

SF-02940 ESPOO 94 

Rnland 
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GERMANY 

Kettcnberg 24 

D SHHO Lueden Schcid 

West Germany 

Rudl Ferrari 

ITALY 

CoinmtKiore 64 Club 

Unluersita di Studi shan 

V. Avigllana 13/1 

1013S TORINO 

ITALY 

KOREA 

Commodore Uien Club 

KRO. Box 1437 

Seoul. Korea 

Contact S. K. Cha 

MEXICO 

Asodadon De Usatios 

Commodore 

c/o Alejandro Lopez 

Arechlga 

Holbein 174-5° Plso 

Mexico IS, D.H 

Club de Usarlos Commodore 

Sigma dd None 

Mol del Valle, Local 44 

Gana Garda, N.L. 66220 

NEW ZEALAND 

Commodore Us^rs Group 

Meel at VHF Clubrooms 

Hazel Ave, 

Mount Roskill 

3rd Wed. o( month. 7:30 pm 

Roger Altena 278-5262 

Nelson VIC Users Group 

c/o P.O. Box 850 

Nelson. New/ Zealand 

Peter Archer 

ER. Kennedy 

c/o New Zealand Synthetic 

Fuels Corp. Ltd. 

Private Bag 

New Plymouth 

NORWAY 

VIC Club of Noraay 

NedreBankegt 10. 

1750Halden 

Norv^'ay 

UNITED KINGDOM 

North London Hobby 

Computer Club 

Dept, of Electronics & 

Communications 

Engineering 

The Polytechnic o( North 

London 

Holloway Rd. 

London N7 8DB 

Croydon MlaocomputerClub 

lllSelhurstR. 

Selhursl. London SE25 6LH 

01-653-3207 

Vernon Gifford 



User Bulletin Board 



User Croup Forming: 



WISCONSIN 

Contact: John Beadle 
212 So. 28th 
UCrosse,WI 54601 
(608) 782-1186 



Classified 



Fun. Games and Educational 
Programs under $5.00. For free 
catalog write to: SOFT 4 YOU, 
P.O. Box 3254, Reston, 
VA 22090. 



MIKROVID 

PRESENTS 

CREVICE FLYER 

Try to fly 

through a constantly 

changing canyon and 

don't let the 

FORCEHELDS AND ALIENS 

stop you. 

$14.00 

ALSO 

MATH.. $10.00 

CAPITALIZATION,. $1000 

Send to 

MIKROVID 

80X67 

FAUQUIER B.C. 

VOGIKO 

CANADA 



Educational Software 
For The COMMODORE 

VIG-20 




Wide Variety Of Subjects 
Available For All Ages 

FOR FREE BROCHURE WRITE: 

Schoolmaster 

Programming Company 

P.O. Box 1 94, Pomona, CA 91 769 




FULL FEATURE MAGAZINE 
on 

CASSETTE 

FOR THE 
VIC 20™ and COMMODORE 64™ 



GAMES 

EDUCATION 

REVIEWS 



TUTORIALS 

BUSINESS 

UTILITIES 



• READY TO RUN PROGRAMS • 

1 YEAR (12 issues) , . $49,95 
6 MOS. (6 issues) .... $28.95 
1 TRIAL ISSUE $8.50 

subscribe today 

PEEK MAGAZINE 
4118 BROOKSIDE BLVD. 
CLEVELAND, OHIO 4413S 



(rjdfmaF^ of Comrr!Odor 




poke into peek 



iim 
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no more pencils, 
no more books... 



Interactive LOGO 



by David Malmberg 



LeVs continue the exploration of 
LOGO for the Commodore 64 that we be- 
gan in the last issue of Power/Play. In 
this installment we 'II explore LOGO 's 
capabilities to interact with people and 
how this interaction may be used as an 
aid to learning. Specifically, we'll develop 
two interactive LOGO programs that fa- 
cilitate the learning of some valuable 
concepts and allow the student to have 
fun at the same time. The first program 
will be a real-time drawing program 
called INSTANTDRAW, which is the 
LOGO equivalent of the popular toy 
Etch-A-Sketch. The second program 
will be a variation of Commodore's com- 
puter game Jupiter Lander, which I have 
renamed LOGO Lander /or obvious 
reasons. 



INSTANTDRAW 

In this program we want to provide an easy way 
to let a child (of any age) draw using LOGO'S great 
graphics. We want the program to be highly interac- 
tive by having each drawing command require just a 
single keystroke. We also want the drawings to be in 
real-time so that the artist can draw instantly without 
having to resort to writing a program. INSTANT- 
DRAW can therefore be used by kids as young 
as three or four to become familiar with the 64's 
keyboard, to help develop hand-eye coordina- 
tion, to develop artistic capabilities and eventually 
to enhance problem-solving skills. 

The INSTANTDRAW program lets you control 
the movement of LOGO's turtle and with it draw in- 



stantly on the 64's screen. You control the drawing 
with these keys: 

R —rotates the turtle's heading to the right 
L — rotates the heading to the left 
Uplifts the turtle's pen up to stop drawing 
D — puts the pen down to draw on the screen 
C— clears the screen and lets you start over 
0,1,2, ... ,9 set the length of the turtle's pen 
strokes 

In a program like this it is important to keep input 
and output simple to make the Commodore 64 as 
interactive as possible. This is especially true when 
you are writing something to be used by children 
whose keyboard and reading skills are just devel- 
oping. Typically this is done by making maximum 
use of graphics and pictures for output and by 
keeping keyboard input to a minimum number of 
strokes. To simplify input in BASIC, reading the 
keyboard is best handled by a GET command that 
does not require a RETURN key after each entry. 
To perfomn this same simplified input in LOGO 
you must write your own procedure like this: 



TO GET. KEY 

IF RC? OUTPUT READCHARACTER 

OUTPUT " 
END 



When you want to get the image of a key that 
may have been pressed, you use a GET. KEY com- 
mand in your LOGO program. This procedure will 
output the character image for the key, if one has 
been pressed, and a "null" character otherwise. This 
procedure works because RC?, a predefined LOGO 
routine (called a LOGO pnmat\ue\ outputs a value 
of true or false, indicating the presence or absence 
of a character in the keyboard input buffer. If true, 
the OUTPUT READCHARACTER part of the sec- 
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ond line causes that character image to be output by 
the procedure and the procedure terminates since 
an output has been generated. If false, there is no 
character in the input buffer and the third line out- 
puts a null character. 

Now let's see how to use this procedure to read 
the keys needed to generate the interactive drawing 
commands described above. 



TO 


COMMAND 










MAKE "KEY 


GET. KEY 






CLEARINPUT 










IF :KEY = 


" STOP 






IF :KEY = 


"R 


RIGHT 


30 STOP 




IF :KEY = 


"L 


LEFT . 


30 STOP 




IF :KEY = 


"U 


PENUP 


STOP 




IF :KEY = 


"D 


PENDOWN STOP 




IF ;KEY = 


"C 


SET. UP STOP 




TEST NUMBER? 


:KEY 






IFFALSE STOP 








MAKE "STEP 


:KEY 




END 









The TO COMMAND gives the title for this new 
procedure so that whenever we want to check for 
commands from the keyboard wg can just have the 
word COMMAND in our program. The second line 
of this procedure causes the variable KEY to have 
the value of whatever key has been pressed (if 
any) as outputted by our procedure GET. KEY. 
CLEARINPUT clears the keyboard input buffer so 
keyboard commands do not get "stacked up" be- 
fore they can be processed by the program. This is 
essentially a house-keeping LOGO command. 

The fourth command says "If the cun-ent value 
of KEY {the colon preceding KEY indicates the 
variable's current value) is a null character then 
STOP this procedure." In this context, a STOP is 
like a RETURN command in BASIC. It causes the 
subroutine or procedure to be instantly terminated 
and control of the program to return to wherever it 
was before it began to execute the procedure. 

The fifth line tests for an "R" key being pressed 
and causes the drawing turtle to rotate its heading 



30 degrees to the right. The next command causes 
a similar shift to the left if an "L" key is pressed. 
Similarly, if a "U" or "D" is pressed the next two 
commands raise or lower the turtle's pen. If "C" is 
pressed the SETUP procedure (to be described 
shortly) clears the screen and allows the INSTANT- 
DRAW artist to begin with a clean canvas. 

The TEST NUMBER? :KEY in the fourth from the 
last line tests whether the key pressed is a digit from 
zero to nine. If it is, a "truth flag" is set to true. The 
next command then tests this flag and STOPs if it is 
false, i.e., the key is not a digit. Otherwise the next 
command makes the digit pressed the new value for 
the variable STEP 

To translate these keyboard commands into mo- 
tion, we can use the following simple procedure: 



TO MOVE 




FORWARD 


:STEP 


COMMAND 




MOVE 




END 





This procedure has only three instructions in its 
body The first causes the turtle to move forward 
along its current heading a distance equal to the 
cun-ent value of STEP. In the COMMAND proce- 
dure you will recall that STEP will have a value rang- 
ing from zero (i.e., no movement at all) to nine 
(fairly long "bmsh strokes.") If the pen is down, the 
turtle will draw as it moves. The next instruction 
causes the COMMAND procedure, as described 
above, to be executed. The last instruction is a recur- 
sive call to MOVE itself that begins the whole move- 
ment loop again. 

To add the finishing touches to INSTANTDRAW 
we just need two more short procedures. The first is 
SETUP which initializes the variable STEP at the 
beginning of the program to zero — so the turtle be- 
gins by staying in his HOME position awaiting your 
first keystroke command. SETUP also contains 
DRAW, a LOGO primative, which clears the screen 
and HOMES the turtle, and FULLSCREEN, another 
primative, which assures that the turtle can draw 
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no more pencils, 
no more books... 



everywhere. Specifically, wg have: 



FIGURE 1 



TO SET. UP 

MAKE "STEP 

DRAW 

FULLSCREEN 
END 



The last procedure is called INSTANTDRAW and 
it is the one executed to start the entire program: 



TO INSTANTDRAW 
SET. UP 

MOVE 
END 



Notice that when INSTANTDRAW is executed 
it calls SETUP and MOVE. MOVE is executed 
over and over again by recursive calls to itself, and 
SETUP is not executed again unless a "C" is hit in 
the COMMAND procedure to clear the screen and 
begin a new drawing. 

The clearest way to see how these procedures 
fit together and to see what procedures call or 
reference what other procedures is by construct- 
ing a procedure diagram or, as it is sometimes called, 
a procedure tree. Figure 1 is a procedure diagram 
for INSTANTDFtAW. In the diagram, each proce- 
dure shows the procedures that it references just 
below it, starting with the one called first on the left- 
most side. Notice the "circular" reference to MOVE 
to indicate recursion. 

Typically, when developing a LOGO program, 
you will find it helpful to sketch out an overall 
procedure diagram to identify the specific tasks 
or procedures to be programmed and to clearly 
understand the sequence and the relationship 
between these individual procedures. This process 
is sometimes called top-down design. After you 
have produced this top-down overview you will 
tend to program the individual tasks from the 
bottom-up — with separate testing of each procedure 



INSTANTDFUW 



SET. UP 



MOVE 



COMMAND 



GET.KEY 



as you go along to assure that each does what it is 
supposed to do. 

LOGO Lander 

The prccedure diagram for LOGO Lander is 
given in Figure 2 and the listing is at the end of the 
article. The program uses a few more LOGO tricks 
and some new commands (see the Commodore 64 
LOGO reference manual) but the overall ideas 
and structure for interactivity are quite similar to 
INSTANTDRAW and are fairly straightforward. 

At first blush, LOGO Lander appears to be a 
straightforward game. You tn; to land your com- 
mand module (represented by the turtle's triangle 
shape) on the planet LOGO without crashing. But 
this game is really a vehicle for teaching a great 
deal more than just hand-eye coordination. LOGO 
Lander teaches many principles of Newtonian phys- 
ics in a painless and even fun manner. By playing 
the game, the student learns about resultant forces, 
the laws of motion, gravity and even about some 
of the perils of space travel. 
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The game is simple to play but can be very dif- 
ficult to master. Your mission is to land your com- 
mand module as close to the landing site at the 
bottom of the screen as possible. You get points 
for your touchdown's distance from the target, the 
speed of your flight, and the softness of your land- 
ing. There are three possible skill levels, which in- 
fluence the amount of gravitational pull you have 
to contend with and the degree of finesse required 
to avoid a crash landing. My personal best score is 
1761 points for a soft landing 5 miles from the target 
obtained during a 35 second flight. To be honest, I 
also have many scores of minus 1000 points or less 
for more distant crash landings. 

Just as in Commodore's Jupiter Lander, your 



command module has a main rocket that moves 
you forward on your current heading, and two side 
rockets that cause you to move sideways. These 
rockets are controlled by the following keys: 

A — blasts module toward left 
S — blasts module forward 
D — blasts module toward right 
to 9 — changes rocket blast force 

You may also hit "R" and "L" to shift the direction 
your command module is heading. This will obvi- 
ously change the directional effect of any subse- 
quent rocket blasts. 

When piloting your module in deep space (i.e., 

Continued on page 60 
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The room is a targe cavern full of broken stone. The walls are scorched 
and there are deep scratches on the floor. A sooty dry smell is very strong 
here. A paved path winds from a small passage to the west, through the 
room, and across a cyclopean stone bridge to the south. To the east a small 
crack Is visible. A dark and smokey tunnel leads north. 

A huge red dragon is lying here, blocking the entrance to a tunnel lead- 
ing north. Smoke curls from his nostrils and out ttetween his teeth. 

Your sword has begun to glow very brightly. 

Listen to Dragon 

The huge red dragon makes no sound. 
I The dragon looks bored. ' 

Talk to Dragon 

The dragon looks amused. He speaks in a voice so deep " 

you feel rather than hear it, but the tongue Is unknown 
to you. You feel almost hypnotized. 

The dragon continues to watch you carefully. 

' jmm.:: —Zork— ^ 
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"■ BY DIANE LE BOLD 

I! 

If you like myster/ novels, fantasy 
I games or logic puzzles and are willing to 
,' submit to the sometimes weird sense of humor 
' of a mildly deranged programmer, then you are likely 
. material for adventuring. In addition to the Scott 
'■ Adams adventures already available for the VIC 20, 
Commodore has expanded its product line to include 
adventure games for the Commodore 64, including Zork, 
Deadline, Suspended and Starcross. So 64 users can 
now enter these fascinating worlds, where you partic- 
ipate in — and affect— what happens. But even 
L though they're just fantasies, there is one real- 

life danger involved in playing adventure 
games— your friends and relatives may 
not see you for months. 



?/ ' To tell you the truth, I'd rather be 

chasing down Mr Coates, who left 

iii«; the Robner house rather abruptly 

' . yesterday just shortly after noon. 

I Unlike the others, who always stop 

and wait when I call their names, 

he just turned away and went out 

L the front door Maybe he was angry 

(■ beieause I was five minutes iate for 

i the reading of the will. 

. . jr. instead of being there looking 

: for Mr. Coates, I'm here, writing this. True, "here" 

is really the same place as "there", since both my 
writing this and my playing Deadline (an adven- 
ture game for the Commodore 64, in which Me Coates 
is a character) are done at my computer. Nevertheless, 
when I slide Deadline into my disk drive, I feel as if I'm 
boarding a plane, i know in just a little while I'm going to 
be somewhere else. Putting my word processor into the 
drive just doesn't have the same effect. 



GREGPURDON 
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Eventually you figure out how to use the robots in Suspended with increasing 
efficiency. But, the point is, you learn it piece by piece, by trial and error, until you 
have the full picture. That's the way adventures work— piece by piece, trial and 
error, and then suddenly it all comes together Or at least part of it connes together. 



Adventure worlds appeal to me 
more than the standard pursuit/ 
shoot-em-up games, probably for 
the same reason that Alice in 
Wonderland and Through the 
Looking Glass appeal to me. In 
fact, adventures have a lot in com- 
mon with these classic stories. It's 
just that instead of entering the 
adventure worids through a rabbit 
hole or mirror, you enter through 
your computer. And, instead 
of being just a passive observer of 
events, you get to participate in 
them. Let us not forget, by the 
way, that Lewis Carroll (aka 
Charles Dodgson), the author of 
the Alice books, was a mathema- 
tician who enjoyed things like chess, 
logic puzzles and anagrams. I'd 
almost bet that, had Carroll lived 
in the 1980's, he'd have been a pro- 
grammer — of adventure games. 

1 have to admire the minds who 
create these little worlds, just as 1 ad- 
mire Carroll's. No two adventure 
worlds are the same, and every 
time 1 enter a new adventure and 
start wandering around, stumbling 
over clues, finding out what works 
and what doesn't, catching on 
to the vocabulary, it's almost like 
exploring a new comer of my 
own mind. 

It usually takes a while to get 
used to the unique environment 
(and limitations) of each game, 
but you're free to explore to your 
curiosity's content — at least until 
you make a fatal error and get 
deep-sixed. But, what the heck. 
Even if you die, all you have to 
do is start over again — scarred, 
maybe, but definitely wiser (If you 
take your adventures seriously by 
the way, you might want to save 

36 COMMODORE: POWER/PUW Fall 1983 



Journal Of An Unknown Explorer 

BYJIMGRACELY 



This Is a review of one of Commo- 
dore's adventure games, but at 
Jim 's request we 're not teliing you 
wh/c/i one. 4s Jim put it, "If they 
can't figure out what it's about, 
then they probabiy won 't want to 
play It anyway." Can you see the 
obvious(?i clues? 

Something woke me from my hiber- 
nation. As I became more conscious 
of my condition, I recognized the 
mass detector alarm, which must 
have triggered my arousal 

Translated unidentified mass coor- 
dinates for the navigational com- 
puter and sal back for a short ride, 
Interesting quadrant of the outer 
reaches of l<nown space. 

Approaching a huge cylindrical as- 
teroid of some sort. Definitely not 
good mining material. Navigational 
computer has confirmed that the 
object is "not your usual asteroid". 

Red Dock: This is a docking port 
color-coded in red, A round metal 
sculpture or relief covers part of the 
airlock door. There are exactly ten 
circular bumps or columns on the 
sculpture: four small bumps, two 
rather large ones, two medium- 
sized ones, and then a small 
one again. 



Cr/stal bubble appears unreach- 
able from here. However, the grass- 
land is quite stunning and have 
observed small weasel-like creatures 
hunting what appear to be unicorns. 

Remarkable device of some kind 
keeps bands of force acting as bars 
to the cages in the zoo. A number of 
dead creatures are here along with 
a live colony of rat-ant creatures. 

Outside of a small village. Creatures 
of unknown origin are travelling 
throughout the entire area. Appar- 
ently the entire "city" has been made 
from scavenged materials. An alien 
that seems to have a position of 
power is approaching me. 

Spider creature has given me 
some valuable information to aid 
my search for the meaning of what 
I have seen. Air is continuing to thin. 
I have not found any cause of this 
problem; however, I have discov- 
ered that when 1 put the , . . air 
has suddenly become unbreath- 
able . . . this is my last entry . , . 
good ...l...u..,c...k... 

Some say there is no way to save 
the strange ship and redeem the 
doomed inhabitants living on it. Yet 
rumors have been heard concern- 
ing a silver rod, two mysterious 
disks and a yellow dock. Perhaps 
someday... 



The more complex the adventure, the longer this process takes. Which brings us 
to an innportant point. Be sure to take breaks when you're playing an adventure. 
Also, be sure to breathe while you're playing. These two techniques will keep oxy- 
gen flowing to your brain, which helps your game immensely. 



Waking to Chaos 

BY DAVE STREET 



It is no small wonder that Michael 
Berlyn, creator of Suspended, is 
rumored to be in an asylum. After 
only a few cycles of play, it became 
obvious to me that only the most 
contorted of souls could have de- 
vised such an adventure. The game 
opens by wrenching you from an 
uneventful cryogenic slumber and 
thrusting you into the command 
position of a world in chaos. 

To save this world, you must re- 
turn the Filter Computers to a state 
of balance. All right, I will take com- 
mand! I inventory the resources of 
my underground complex and find 
thai to help restore balance I have 
six robots at my command. Great, I 
will tell them to fix their big brother 
and let me get back to a more im- 
portant endeavor (sleeping!). Did I 
say robots? I stand corrected, 1 have 
six mechanical characters, each 
with their own special capabilities 
and quirlts. First, there is Iris who 
seems intent on starting some 
romantic escapade with me. Then 
there is, what, oh well, was Waldo 
who just went dysfunctional in the 
Cavernous Corridor. Do not worry, I 
have everything under control. Well 
there is the matter of the 121,000 
casualties, but the population was 
30,172,000 to start, so maybe no 
one will notice that a few are miss- 
ing, and besides 30,051 ,000 is a 
much nicer number anyway. 

Then there is Whiz wlio is so intel- 



ligent he has to ask a computer what 
he is carrying. But since his main 
function seems to be as a walking 
interface to other computers, his in- 
telligence is not generally an issue. 
Poet, another robot, performs a 
number of services, all of which are 
directed toward tormenting me. He 
gives such enlightening responses 
to my inquiries that I still do not know 
what he is doing and am losing what 
little idea I had of what I was doing. 
One more philosophical response 
and I will send him to the Cavernous 
Corridor. Uke I said, 29,784,000 is a 
much nicer number than 30,172,000. 
Just so you can feel a little pity for 
me, I am going to outline my present 
situation. Iris, my seeing robot, is 
blind, Waldo, my workman, is not 
working. Whiz is behaving in his 
normal totally lobotomized manner 
and has just informed me that he 
can not query any computers for a 
while. Auda's auditory circuits are 
inactive. Sensa is functioning, where 
I do not know, but she is functioning. 
And Poet has just dropped this little 
maxim of enlightenment on me, 
"Running, running getting nowhere 
in the hustie and bustle of life". Any- 
way, I have fewer responsibilities 
now since there have been an addi- 
tional 83,000 casualties. Well, now 
all I have got to do is repair and or- 
ganize my robots and tlien save the 
world. I wonder if Michael Berlyn 
needs a roommate. 



your game before you traipse off 
into dangerous territory. That will 
prevent the frustration of having 
to start all over.) 

If you've never played an ad- 
venture game, you may be a little 
mystified by all this. So let me 
backtrack a bit. First, adventures, 
unlike most of the games you 
are probably used to playing, are 
not (for the most part, anyway} 
graphic wonders. In fact, all you 
see on your screen are words, 
which is why some people have 
called them "participatory novels". 
True, Scott Adams and others 
have developed graphic adven- 
tures, which provide pictures as 
well as words. They're great fun. 
To be frank, however, I prefer 
creating the pictures in my head, 
probably for the same reason that 
some people prefer listening to 
radio stories rather than watching 
television. The pictures 1 create 
in my own mind are uniquely 
personal, mysteriously intimate. 
Someone else's interpretation is 
almost always something of a 
disappointment to me. 

As you respond to the words on 
your screen you are led, piece by 
piece, into a small, self-contained 
three-dimensional world. For in- 
stance, in Suspended, you've just 
been thawed out (after a cryogenic 
sleep of a few hundred years) be- 
cause your planet is hitting the skids 
and you're the only one who can 
save it. So, before you even have 
a chance to grab a cup of coffee 
(which, believe me, after a sleep 
like that, I'd need), you've got to 
start ordering six robots around to 
try to remedy the situation before 
thousands of people die. 
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These robots, you gradually dis- 
cover as you play, are not always a 
big help. In fact, until you get used 
to their distinctive capabilities and 
various little personality quirks, 
they're often a pain in the neck. 
But the interesting thing is that 
they have personality quirks. And 
you have to deal with — and learn 
to get around — those quirks, be- 
cause the robots are your only 
way to get anything done. And 
eventually you figure out how to 
use them with increasing efficiency. 
But, the point is, you learn it piece 
by piece, by trial and error, until 
you have the full picture. That's 
the way adventures work — piece 
by piece, trial and error, and then 
suddenly it all comes together Or 
at least part of it comes together 

The more complex the adven- 
ture, the longer this process takes, 
and the more likely you are to 
want to jump into your monitor 
and get somebody around the 
throat. Which bnngs us to an im- 
portant point. Be sure to take 
breaks when you're playing an 
adventure. Also, be sure to 
breathe while you're playing. 
These two techniques will keep 
oxygen flowing to your brain, 
which helps your game im- 
mensely I am not kidding, either 

Suspended is different from most 
adventure games I've played be- 
cause it comes with a ready-made 
map of its "world", which happens 
to be an underground computer 
complex. In most other adven- 
tures you have to map the world 
yourself as you explore. Which 
brings us to another important 
point. A pencil and lots of paper 
are essential items when you play 
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ZorkI 

BY JIM GRACELY 



5:30 PM 



I opened the package and re- 
moved the diskette. My disk drive 
buzzed as the game loaded into my 
64. I was ready for this game. So 
what if no one I knew had gotten 
more than 100 out of 350 possible 
points: I v/as ready. 

As the game continued to load, 
I reviewed my supplies; Enough 
blank paper to map out anything 
20RK could conjure up, four pencils 
with good erasers, a red pen for 
marking important areas and two 
quarts of bfack coffee. At last the 
game is loaded. The introductory 
material is printed onto the screen 
and... I'm off... 

Hmm ... a house. That's easy. 
in and around and up and down 
and , . . Hmm ... a cellar. Now we're 
getting somewhere. South and east 
and north and north... a fight!! 
Drat, Dead already, Hmm . . . forest, 
North, no east, maybe west, aha! a 
clearing. Back to the woods, down 
the canyon, up the cliff, along the 
path. Hmm . , , a house. One quart 
down and one to go. 

Start Again 

Hey, I'm allowed! One of the nice 
things about these games is that 
you can restart whenever you want 
to. Saves a lot of reloading time. 

Back to the grind wheel. Here 
I go... slash, swing, kill. Now I'm 
moving. Past the chasm, down 
the passage, rnto the cave ... Oh 
my God! 

Entrance to Hades 

You are outside a large gateway, 

on which is inscribed 

"Abandon every iiope, all ye 
who enter liere." 



The gate is open; through il you 
can see a desolation, with a pile 
of mangled bodies in one comer. 
Thousands of voices, lamenting 
some hideous fate, can be heard. 
The way through the gate is 
barred by evil spirits, who jeer 
at your attempts to pass. 

WAVE GARLIC 

Waving the clove of garlic has 

no effect. 

Run away, run away. Gotta keep 
going, A dam, a lobby, a pile of 
plastic?? Buttons, not buttons!! I 
hate buttons!! Jewels at last!, A tri- 
dent, a loud room, room, room. I 
must admit I'm doing pretty good. 
My score. . . why I've got almost 60 
points. Almost, almost. Well 37 is a 
heck of a lot closer to 60 than to ! ! ! ! 

Where am I now?? A squeaky room? 
Oh no!! 

Fweep! 

Fweepl 

Fweep.' 
A deranged giant vampire bat (a 
reject from WUIvjPUS) swoops 
down from his belfry and lifts 
you away... 
Coal fvfine 

This is a non-descript part of a 
coal mine. 

Gas, smelly, timber, ladder, coal, 
shaft?? . - , everything's spinning , . . 
Where's my coffee!!! . . . There goes 

my lamp!! ... Not now!!,,, I'm out 
of paper,.. I'm lost... it's over... 
I'm dead. 

It's 4 o'clock in the morning , . . 
won't someone save my life tonight? 
Guess not. Time for this novice (bah 
humbug) adventurer to go to sieep. 
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any adventure, first because you 
absolutely need a map. In addition, 
you may want to take notes. For 
instance, in Deadline, where you 
are the police inspector who has 
only twelve hours to collect evi- 
dence and make an arrest, taking 
notes on each suspect's remarks is 
crucial. If you don't take notes, 
you'll probably end up repeating 
questions (provided you can find 
the person again) and generally 
wasting a lot of valuable time. 

Adventure games are becoming 
increaangly sophisticated and com- 
plex. The first one I ever played 
was Scott Adams' Adventurehnd 
for the VIC 20, a great beginner's 
game, with underground caverns 
and sleeping dragons and all kinds 
of nifty treasures. 1 loved it, but 
the game could handle only a 
fairly limited number of two-word 
commands, and 1 spent a lot of 
time playing "guess my word". 

A game like Suspended or 
Zork, on the other hand, can re- 
spond to a wider range of words, 
in normal English configurations. 
That's because the newer games 
have a larger vocabulary built in 
(usually several hundred words). 
True, that's still pretty small com- 
pared to normal speech. And even 
a complex game like Deadline has 
pretty strict limits on what you can 
do, where you can go, and how 
you can get there. Nevertheless, 
the games are getting more and 
more flexible, providing more and 
more options for the player, get- 
ting closer and closer to real-life 
simulations. Some day some 
genius programmer could create 
a game that's so believable you 
may have a hard time separating it 



Adventuring with Scott Adams 



BYANDYFINKEL 



In the world of computer games 
there are two main categories: ar- 
cade style games (shoot-em-ups) 
and adventures. (I know, I know, 
lately there have been quite a few 
that conlain elements of both, but if 
you're going to start arguing now, 
there's no point in my continuing. 
Right,) Certain people only play 
arcade-type games. Others swear 
by adventures. f»/!ost people like both. 
The games I write are basically 
arcade style, and even I like 
adventures. 

But exactly what is an adventure? 
Everyone knows what an arcade- 
style game is by now; it would be 
hard not to. But (ewer people are 
really familiar witfi adventure games. 

Let's use one of the most famous 
series of adventures, the Scott Adams 
series, as examples {The fact that 
Commodore sells them is a fortu- 
nate coincidence, Really.) In a 
classic Scott Adams adventure, 
you are given a mission to perform 
(which may range from defusing a 
nuclear device to collecting 12 trea- 
sures, to . . . ). You communicate with 
the computer by means of two-word 
commands {take knife, eat bridge, 
play ball, whatever). The computer 
tells you what you see, and what 
happens when you do something. 
Unlike arcade games, the adventure 
actually takes place within your 
mind. The quality of the descriptions 
is of course very important. 

One way to look at an adventure 
is to imagine that it is a contest be- 
tween you and the adventure author. 
Can you outsmart him (or her — 
Alexis Adams, Scott's wife, also 
writes adventures) and solve the 
adventure? It is more tun when the 
author has a sense of humor, (Like 
in the Scott Adams series. Adver- 
tisement.) There are some really 
funny moments in them. (There's a 



certain mongoose in Pirate Cove 
Adventure ...) 

If you want a break from shooting 
still another mysterious alien, and 
want something completely differ- 
ent, try an adventure. You might get 
hooked. I know I did, 

Scott Adams adventures range 
from ones suitable for beginners 
(Pirate Cove Adventure) to more 
advanced {The Count) to almost 
impossible {Savage Island), so 
there's something for everyone. 

Now that I've convinced you to 
rush out and buy a Scott Adams 
adventure (You mean you haven't 
heard of the famed Arcade Addict 
Deprogrammers? They are the 
people who drag players out of 
arcades to a home computer and 
force them to try adventures to save 
their sanity, not to mention their trig- 
ger fingers. No, sorry, that's silly. 
Forget I mentioned them. Anyway . . . ), 
there are a few hints for playing 
adventures that I can pass on. First, 
use the SAVE GAME features. By 
saving the adventure, you have the 
freedom to try silly things knowing 
you won't have to start from scratch 
if you make a mistake. (I must have 
run through the final five turns in 
Mission Impossible, the nuclear 
reactor one, at least eight times 
before I got it,) 

The other hint I can give is this: 
when you find an object and don't 
know what to do witti it, try things, 
even if you know it won't work. If you 
find an axe, say, try "Cut tree", even 
if there's no tree in sight. If the ad- 
venture answers "You can't do 
that . , . YET! ", you know you're on 
the right track . , . just look for a tree. 
(When Scott Adams heard people 
were doing this, he changed this on 
some of his adventures. So it might 
not always work, especially on the 
later, more difficult adventures.) 
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Twelve Hours to Find 
out Whodunit 

BY DIANE LE BOLD 



The rolling lawns of the Robner 
estate are lovely and well cared 
for; Angus f^cNabb sees to that. 
The roses, which the late Marshall 
Robner loved so much, are particu- 
larly gorgeous this time of year, and 
the orchard is heavy with luscious 
fruit. But I wish I'd stop bumping my 
head on the front door every time I 
try to get into the house, I'm getting 
a miserable headache and my 
forehead is blacl< and blue—not 
very dignified for a police inspector. 

I am, you see, investigating the 
sudden death of Marshall Robner, 
wealthy businessman and philan- 
thropist, whose body was found 
yesterday morning on the floor of 
his library. There he was, sprawled 
next to the desk, deader than yes- 
terday's coffee grounds. A self- 
administered overdose of the 
sedative ebullion, the coroner 
concluded. 

It made sense. Mr. R had been 
depressed over business problems. 
But, on the other hand, Robner's 
son, George, didn't like his father 
much {the feeling was mutual). And 
the family lavi/yer, Mr. Coates, said 
Robner was about to change his 
will. Chances seemed at least fifty- 
fifty that Mj.B hadn't been THAT 
depressed, and that someone else 
had helped him along toward an un- 
timely departure from the planet. 

But who? Ms, Dunbar, Robner's 
lovely, ambitious secretary? Mrs. 
Robner, who was jealous of the time 
her husband spent with the attrac- 
tive Ms. D? Could it have been Mr, 
Baxter, Robner's business partner? 
Or was it the obvious suspect, 
George — Robner's willful, spoiled 
son, who had made it his life's work 
to spend his father's fortune on 



booze and fast cars? 

My style (learned from watching 
years of "Columbo") is to ignore the 
obvious suspect. Especially when I 
find him eating red herrings in the 
dining room. But everyone else has 
an alibi, including Mrs, Rourke, the 
gossipy (but tidy) housekeeper, and 
so far the clues I've found haven't 
been too much help. Maybe 1 should 
get Mrs. Robner's "Sneeze" cold 
medicine analyzed. Where IS that 
sergeant with the youthful demeanor 
who runs things dov\/n to the lab 
for me? 

Three hours gone. Have I missed 
any rooms In the house? What about 
that garden shed down by the lake? 
Maybe I should look under the beds 
this time around or under the library 
desk. No. By the time I get all the 
way back to the library it will be time 
for the reading of the will, so maybe 
I'd best prowl around the grounds 
for a while and see if I can scare 
up any footprints. Oops, there's 
McNabb again, screaming at me 
for {romping through his roses. That 
man is a fanatic. Wonder why no- 
body else in the house knows very 
much about him. 

Well, one thing is sure. If I don't 
make an arrest by eight o'clock to- 
night, Mrs. Robner is throwing me 
out of the house, and my investiga- 
tion is over. What a humiliating 
thought. And even if I make an 
arrest, will the grand jury give me 
an indictment? I've got to be very 
careful, and make sure I've got alt 
the evidence before I make any 
accusations. 

It's a vicious Deadline , to have to 
solve this case in twelve hours, I'd 
like to see you do it. Care to join me? 



frona the real world. This would 
not be impossible. 

I was going to tell you about the 
humor that shows up in most ad- 
ventures, usually unexpectedly, 
often when you're in an impossible 
situation. Suddenly an off-the- 
wall remark wi!! come up on the 
screen, usually to chide you for 
some stupid move you've made, 
(Scott Adams is notorious for a 
couple of his well-placed jokes, 
but I've also found these tidbits in 
just about every adventure I've 
played.) I know I'm being vague, 
and I'd love to give you some con- 
crete examples, but then that 
would ruin the joke, wouldn't it? 
So you'll have to find them for 
yourself. 

If you already are playing ad- 
ventures I'm sure you'd love some 
hints on specific games. So would 
1, For instance, why did Mr. Coates 
run off after he finished reading 
the will? Better yet, how do I get to 
talk to him? (Actually I think I've 
got that one figured out, but it 
means starting the game over } But 
if you're just dying for some hints, 
maybe I'll squeeze in just one — 
be VERY careful about opening 
doors in Suspended. That's all you 
get. Any more would be as bad 
as giving away the end of "Return 
oftheJedi", 

On these pages you' II find re- 
views of adventures now available 
from Commodore. 1 use the term 
"review" loosely, since it's very 
hard to review an adventure in the 
traditional sense without giving 
away its secrets. You should, how- 
ever, get an idea of the general gist 
of the games from what's here. 
Pick one and ... faon uo\^age. C 
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BY STEVE FINKEL 

Commodore introduces 

four new action games on cartridge for the Commodore 64 
to challenge your reflexes and hone your eye-hand 
coordination. Frogmaster is a unique game liased 
roughly on Pavlovian psychology (the theory 
is that you can condition creatures to 
..^^ respond in predictable ways by rewarding 
■f/^^rWl them for behavior). Star Post, Star Ranger and 
Avenger are exciting space shoot-em-ups. 
VIC 20 owners, who are already familiar with 
Avenger, can also pick up some useful hints 
here on how to win at that popular 
cartridge game. 
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The^Master 
Speaks: 

An Exclusive Interview 




When I finally tracked down Newt 
Frogknee, possibly the most for- 
midable Frogmaster coach and 
trainer ever to guide a team of tad- 



poles, he initially declined to give 
me an interview. 1 had tracked 
down the legendary coach in the 
muck and slime of a swamp in 
the bayou that would have made 
the Johnstown flood look like a 
goldfish pond. He made some 
threatening gestures toward me; 
he apparently felt I was a rival 
coach who had followed him there 
on a scouting mission trying to lure 
away his best-looking recruits. 1 
tried to convince him that nothing 
could have been further from the 
truth, that I was a sports writer 
after an interview. But the gmff 
coach, in a display of that famous 
temper of his, smacked me in the 
face with a handful of mud. 

Muddied but unbowed, 1 was 
still determined to get my story. 
After all, this was the man who 
had guided a team of young, un- 
tested tadpoles and over-the-hill 
frogs, molding them into an almost 
unbeatable machine. Under his 
tutelage, they were not just a 



bunch of amphibians; they 
were an awesome example of 
the height of coaching genius, the 
whole being greater than the sum 
of the parts. This was the earmark 
of a Frogknee team, the willingness 
to sacrifice individual talents, even 
one's life and baby tadpoles, for 
the team and coach. The story had 
been repeated several times, with 
different casts of characters, but 
always with the same end result: 
victory. His teams had competed 
in (and usually won) all the major 
bowl games: the Turtle Bowl, the 
Goldfish Bowl, the Weevil Bowl, 
the Dust Bowl — all the biggies. 

The man was truly a great one. 
Unfortunately, he was also a stub- 
bom one. Not only was he refus- 
ing to talk to me, but he was also 
directing many strong young frogs 
to use me as a tackling dummy (a 
task they attacked with great zeal). 

1 had given up hope of ever 
getting my interview and was re- 
treating when I felt a pull at my side. 
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It seems that a hungry alligator 
had decided to fix himself a snack 
of spare ribs, and was searching 
for mine. The great coach saw this, 
and after one of his famous guf- 
faws, consented to do this inter- 
view. As we spoke in the back of 
the ambulance that rushed me to 
intensive care, Newt remarked, 
"Kid, you got guts. But they're 
leakin' out yer side." The coach 
enjoyed another great laugh at my 
expense, but I stopped his sick 
sense of humor short by bleeding 
on his pant leg. We then began 
the interview that cost me 28 
stitches in my side and a huge dry 
cleaning bill. 

Me: Coach, how exactly do you 
do it? You are one of the all-time 
great Frogmaster coaches; your 
teams are routinely spectacular. 
What's your secret? 
Coach: There is no secret. It's a 
matter of rewarding your players 
when they deserve it. You'll never 
see me rewarding a tadpole or frog 



who doesn't deserve it! On the 
other hand, I'll seldom miss a re- 
ward when a frog is moving in the 
right direction. The right rewards 
mean the right moves. That's a 
good guideline for any coach. 
Me: Your players haven't made 
many mistakes over the years. 
Coach: Oh, I've had my share of 
screw-ups. Sometimes you get a 
tadpole that gets out there and just 
doesn't know which way to go, 
and he catches encouragement 
from the other coach and decides 
to hy and score AGAINST you! I 
remember a game when 1 was just 
starting out coaching where the 
opposing coach rewarded my 
players so well that the entire 
contest consisted of all the players, 
even mine, storming my goal line. 
My poor snake goalie quit right 
after that game, and I didn't blame 
him one bit! 

Me: Of course, things have 
changed since then. You're more 
than likely to do that to an inexpe- 



rienced opponent now. A question 
I've always wanted to ask you: 
How do you manage to stay so 
sharp? You always seem to be so 
well-prepared for your opponent 
How is that? 

Coach: Practice, practice, and 
more practice. I practice my team 
against a team controlled by a 
computer, with a handicap, at dif- 
ferent speeds, with different num- 
bers of players. If you can beat the 
computer's team, you're a damn 
fine coach. Not to blow my own 
horn, but I can take the computer 
three out of five. This keeps me 
ready for any challenge posed 
by another coach. 
Me: You mentioned the number 
of players. How many players do 
you prefer to use? 
Coach: I always say "the more 
the merrier". When there's nine 
players on each side, that creates 
a situation where your coaching 
skills are really tested. You must try 
to pay attention to 18 frogs or tad- 
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STARDATE: 98.86.125 
STAR POST LOG ENTRY #1 
CPL. J. F. WEAVER 

I've established my command 
here. Some command, me alone 
against any alien pilot who feels 
like buzzing my sector. Still, it's 
really quiet, and I'd swear I could 



Frog Master Continued 

poles, and effectively reward the 
right ones at the right time. This 
is tough for many inexperienced 
coaches, but challenges are made 
to be met and conquered. Make 
sure you get that quote right, 
'cause it's one of my better ones. 
Me: That's one of your BETTER 
ones? (The coach shot me a nasty 
glance, and I hurried up with my 
next question.) 

Me: What level do you most like 
your players to compete at? 
Coach: I personally will usually 
have them play either the standard 
or advanced game. I left the prac- 
tice game, when each team only 
has one frog, behind years ago. 
It was useful for me to develop 
my coaching skills, but I need the 
challenge of the STANDARD and 
ADVANCED games, I particularly 
like the advanced game with the 
walls that the tadpoles have to 
break through and the frogs have 
to leap over to score. It gives me a 



even see Venus from here. This 
place is in the middle of nowhere. 
Actually, it's on the edge of 
nowhere. The middle of nowhere 
is a couple hundred thousand 
miles to the left. Either way, it's 
pretty dull. I think I see something 
coming up on the viewscreen, and 
it sure ain't Luke Skywalker Be 
back soon. 

STARDATE: 98.97.125 
STAR POST LOG ENTRY #2 
CPL. J. F. WEAVER 

I've just survived my first trial-by- 
fire. I had gunned down one alien 
cruiser, when all of a sudden about 
a dozen more were right on top of 
me from out of nowhere. It was 
like driving in New York City dur- 
ing rush hour. I had to continually 
whiri around, firing in all direc- 
tions, and still didn't stop all of 
them. Three got through before 
the attack ended, so it looks like I'll 
have a little repair work ahead of 



me. Still, I think that they'll think 
twice before wandering in front of 
my gunsights again. 

STARDATE: 98.02.127 
STAR POST LOG ENTRY #3 
CPL. J. F. WEAVER 

Not only have I completed repairs 
and had breakfast, I had to shoot 
up another wave of attackers. 1 
don't know what kind of fool they 
think they're dealing with here, 
but as long as they keep coming at 
me, I'll keep gunning them down. 
Their attack seems disorganized 
at first, but you realize that by at- 
tacking from any direction, they' re 
really testing my skill at maneu- 
vering and shooting. I think I see 
another attack formation approach- 
ing. You'd think they'd get tired of 
getting shot down. 

STARDATE: 98.77.132 
STAR POST LOG ENTRY #4 
CPL. J. F. WEAVER 



great pride in my players when I 
see them bash into a brick wall in 
an attempt to break a hole in it for 
the good of the team. I think the 
walls provide an additional chal- 
lenge, and you know how I feel 
about challenges. 
Me: They're to be kept and 
monitored . . . ? 

Coach: Idiot! Met and conquered! 
Another challenge I like is Meta- 
morphosis, when tadpoles turn 
into frogs, frogs lay eggs, eggs be- 
come tadpoles, and frogs die dur- 
ing the course of play. The biggest 
heartbreak is when you get a tad- 
pole that just hatched from an egg 
to march downfield, approaching 
the opponent's goal line as it 
changes into a frog, only to have 
it die on you before it scores. 
But I'll tell you honestly, I have 
nothing but the greatest respect for 
a frog that gives its all for the good 
of the team. 

Me: Coach, in your day, you've 
coached some of the best goalies 



in the game. Do you have a spe- 
cial touch when it comes to con- 
trolling your snake goaltenders? 
Coach: That's a pretty good ques- 
tion. You're smarter than you 
look. As a matter of fact, since a 
coach has better control over the 
goalie than over the frogs and tad- 
poles, I can better use my reflexes 
and concentration to make my 
goalie more effective. Another 
factor in the success of my goalie, 
and the overall effectiveness of my 
team, is a good feel for the proba- 
bility of a frog's next move. It's 
possible to "track" a player, 
keeping abreast of the prob- 
abilities for his next move in any 
direction. This can be a great help 
in defending against the opponent 
and also guiding your offense. 
Of course, it is a great challenge 
even if you've mastered the 
probabilities . . . (The coach was 
obviously waiting for me to spit 
out his quote about challenges. 
Due to loss of blood or j ust that 
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What an expsrience! Two more 
attack waves, and I was definitely 
in trouble on the second one. The 
post had nearly taken its limit of 
hits, and it looked like I was gonna 
miss a couple more aliens. The 
Superalien was bearing down on 
me in a spiral course and I just 
couldn't track him. I knew if he got 
to me, the Star Post would be de- 
stroyed. At the last second, I un- 
leashed the Superzap. I know I'm 
only supposed to use them in dire 
emergencies, but it wouldn't have 
done me any good if the post were 
destroyed. Anyway, 1 let it fly and 
suddenly, all the aliens in the vicin- 
ity were obliterated. It took them a 
couple seconds to resume their 
attack, but by that time 1 was back 
in control of the situation. I'm 
starting to wonder exactly what is 
so important about this post. It 
must be important, since the aliens 
keep sending so many ships out 
here for me to shoot down. But if 



I didn't think it was a very good 
quote, I wasn't sure if I remem- 
bered it I gave it my best shot.) 
Me: Challenges are made to be . . . 
metal containers? 

The coach could not contain 
himself at being misquoted again 
on his favorite quote, and showed 
a flash of his legendary temper by 
breaking off the interview (as well 
as my ankle} by slugging me in the 
foot with an oxygen tank. I had 
finally gotten my story and lapsed 
happily into unconsciousness. 
Unfortunately, this will be my last 
article for some time, since I'll be 
laid up in the hospital while my 
ankle and side heal. The doctors 
do assure me, however, that I will 
be out of the hospital in time to 
cover the Dust Bowl. Who knows? 
Maybe I'll even get to do a follow- 
up interview. Let's see now: 
Challenges are made to be. . . 



it's so important, why am I the 
only one out here? When I ask my 
commanders, they don't really an- 
swer my question. As I check the 
viewscreen, it looks like the tourist 
season is upon me again, so I gotta 
go give them a proper greeting. 

STARDATE: 98.33.138 
STAR POST LOG ENTRY #5 
CPL. J. F. WEAVER 

The attacks are getting harder and 
harder to fight off. I took 7 direct 
hits on the post in the last one, 
and I had to exhaust my supply of 
Superzaps to help me survive the 
attack. These ships are coming in 
a lot faster, and the attacks are get- 
ting longer and longer. I wouldn't 
mind so much if there was some- 
body else around to take some of 
the pressure off me, but this post 
is a one-man show. I wonder what 
poor sucker they'll send up here 
after I'm done ... I'm only signed 
up here for three more years, but 
somehow I don't think I'm gonna 
qualify for the pension fund. I'm 
starting to wonder exactly why 
I was chosen to man this post in 
the first place. They told me it 
had something to do with my 
psychological profile, that their 
complex personality analysis indi- 
cated that I would excell given the 
responsibility of being completely 
autonomous in defending the 
galaxy etc. etc. I think it has more 
to do with getting caught after 
hours with the base commander's 
daughter. . . but I guess that's just 
the way the Galactic Army works 
sometimes. I've gotta remember to 
ask after the commander's daugh- 
ter in my next status report— that 
should cheer the old man up. Well, 
another attack wave is upon me. I 
sure wish I had a couple Superzaps 
left. Looks like I gotta go entertain 
my alien friends again. This one's 
for you, Commander. It's gonna 
be tough to make it through three 
more year^ of this, but I'll be there. 
You can count on it. 



Now 
Showing 




Steven Spielberg isn't the only 
one who can develop a great ad- 
venture scenario. Every time I play 
Star Ranger, when I feel the power 
behind that joystick as I maneuver 
my starship through countless ob- 
stacles, I become the protagonist 
of a thrilling space adventure. It's 
kind of a Walter Mitty thing, but 
as the action takes place on the 
screen, I build an entire story- 
line with character development, 
plot twists, heroes, and villains. 
Usually I turn out to be the hero, 
although I'm pretty humble as far 
as heroes go. 

The story changes each time. 
This time I'm a weekend pilot 
who took up flying as a hobby. 
I've progressed to the point where 
I'm considered the best amateur 
flier in my sector My world has 
been shattered, however, by find- 
ing that the only woman I've ever 
loved has been brutally murdered 
at the whim of a spoiled, imma- 
ture crown prince from the 
Teflon system. 

Prince Bundt has a reputation 
for spitefulness, exceeded only by 
his vast ego. The Prince made an 
unannounced visit to our planet 
for a hunting expedition, going 
after the prize game our sand 
forests offer After the hunt, the 
Prince and his hunting party in- 
dulged in a feast that would' ve 
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Now Showing Continued 

given even the most hard-core 
glutton cause to turn down his 
after-dinner mint. 

Filled with food and wine, the 
Prince decided he'd like a taste of 
the waitress as well. The waitress, 
of course, was my beloved Curad. 
When she spurned his advances, 
the Prince simply pulled out a 
blaster and disintegrated her^ 
one part of her anatomy at a time. 
On the plus side, he did leave 
a big tip. 

His ministers, wishing to avoid 
an incident, simply bought the 
silence of everyone involved — 
except me. When I returned to 
find my Curad slaughtered and the 
Prince gone, 1 swore that 1 would 
have my revenge. Unfortunately, 
the Prince was certain to reach his 
home planet before I could ready 
my ship for the journey and would 
be safely ensconced in his fortress 
when 1 reached his planet. The 
Prince's royal status guaranteed 
his safe passage to his home 
planet. My voyage would not be 
without its challenges. 

I left from the spaceport in the 
dead of night to avoid being seen. 
As my home planet receded in the 
rear viewscreen, 1 realized that 1 
would never return. 1 was deter- 
mined to face the Prince, but had 
no clue about what I'd do or 
where I'd go (if ! survived). I was 
shaken from my mental wander- 
ings by a laser blast exploding 
nearby. My ship was under attack 
from the Nasties. I'm not sure 
what their name means in their 
own language, but the low growl 
that they speak in makes it sound 
a lot like Nasties. 

Nasties are kind of like bullies. 
They won't attack you unless the 
odds really favor them, and then 
they come out of the woodwork. 
Their ships are much slower and 
less maneuverable than mine, and 
their weapons don't have much 



range. I'm not surprised they 
chose me for a target; since I'm 
flying alone 1 must look tike a com- 
plete pigeon. But they shouldn't 
forget what a pigeon can do to 
breadcrumbs, let alone statues. 

The combat was short and 
spectacular. 1 maneuvered my ship 
to keep them shifting directions; 
when they had to turn around to 
try to follow my ship's course, I 
would buzz their crafts and blow 
them away before they had a 
chance to react. After a few 
passes, there were no more 
Nasties willing to face me. 

I continued on warily, knowing 
that 1 would soon be passing close 
to Saltine 9, power base of the 
Bombers. The Bombers were 
named for their propensity toward 
bombs; they abhor laser and 
photon tire, feeling that it is un- 
civilized to destroy something by 
shooting it. Apparently, their 
quasi-religion forbids the action 
of shooting, because it amounts 
to directiy taking lives. But the 
Bombers are also an extremely 
private life form, so they needed 
to develop a protection, to dis- 
courage attackers and prying out- 
siders and protect their privacy. 
They became Bombers. 

Any passing force, be it a single 
craft or an entire fleet, will be faced 
with the task of eluding the Bomb- 
ers. The Bombers will pepper the 
flight- paths with land mines that 
explode on contact They accost 
each ship that passes with no ex- 
ception; usually, it is wise to detour 
around Saltine 9, but I am in some- 
thing of a hun^. Although their 
ships are relatively slow, it is diffi- 
cult to hit a Bomber craft with laser 
fire, since they are experts at 
evasive movement. But it is im- 
perative that you do destroy them, 
because they will litter your path 
with their mines and totally block 
your way, even if you mean them 
no harm. 



It is said that no outsider has 
ever actually seen a Bomber up 
close. I don't doubt it, because 
there's something almost suicidal 
about them. Bomber pilots will 
often try to collide with your ship, 
sacrificing themselves in order to 
destroy intruders and preserve 
their planet's privacy. 

And here they are now. . . 
I don't enjoy destroying Bombers, 
since they only want to maintain 
their privacy. But it's either them 
or me, and 1 have an appointment 
with Prince Charming's step- 
brother. My basic strategy is to 
shoot them only when I have to. I 
usually try to get in front of them 
and desti-oy them by hitting them 
with my exhaust jets as they come 
up behind me. This accomplishes 
two things: first, if I can stay in 
front of them, I don't have to 
avoid their bombs; secondly, by 
killing them without firing a shot 
1 create a terrific sense of poetic 
irony, which I somehow don't 
think the Bombers appreciate. 
That is basically what happened. 
Every time the Bombers tried to 
approach me from behind, I gave 
them a quick blast from my 
exhaust, and continued on. The 
Bombers left me alone as 1 de- 
parted from their galactic turf. 

I could not relax for too long, 
however, I was almost immediately 
attacked by a wandering band of 
Cibollians. Cibollians are the pi- 
rates of the system. They have a 
strange custom that requires all 
young Cibollians to man pirating 
crafts when they are presumably 
old enough to take care of them- 
selves. This is their rite of passage; 
it is surprising, because the mature 
Cibollians are a peace-loving race 
and don't have any other space 
force besides their pirating hordes. 
This sometimes gets them in trou- 
ble, and they are constantly forced 
to migrate from system to system. 
They are often good for a laugh. 
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since their pilots are usually inex- 
perienced. Their ships resemble 
multi-colored cosmic marshmal- 
lows, and although they are 
equipped with powerful weapons, 
their firing range is limited. 

To repel their attack, I lured 
them, two at a time, to a spot 
where I could circle around them 
and fire. I avoided their weapons 
because of their limited range, and 
my superior mobility allowed me 
to run circles around their inexpe- 
rienced pilots in their slower crafts. 

I started preparing myself for 
the final approach to the Prince's 
planet. 1 knew I would have to be 
sharp, because by now he must've 
had word of my coming and would 
no doubt be prepared. While my 
thoughts focused on the possibili- 
ties for traps that I would face, I 
barely realized that I had navigated 
directly into an asteroid shower 
Cursing my own stupidity, I fran- 
tically manipulated the controls, 
weaving in and out of the moving 
asteroids. I regained control of 
the ship, and steadily steered a 
course through the asteroid field. 
I emerged slightly shaken, but as 
determined as ever I was approach- 
ing the Teflon system. 

1 expected an elaborate wel- 
coming committee and I was not 
disappointed. The Prince had 
hired the most feared hired guns in 
the galaxy, the Invisons, to protect 
him. Invisons are feared not only 
because of their skill as pilots and 
their deadly weapons, but mainly 
because of their sophisticated 
spacecraft. The Invison technol- 
ogy has developed ships that have 
a temporary invisibility cloaking 
device. They simply appear, shoot 
at you, and disappear again. They 
also cannot be hit when invisible. 
They are dedicated fighters and 
will battle to the death if they are 
hired to do a job. 1 was indeed up 
against formidable foes. I imme- 
diately took the offensive, charg- 



ing the first Invison to appear. I just 
wasn't quick enough . , . another 
appeared behind me, then 
another. Soon, I was surrounded 
by several Invisons flashing in and 
out of existence. 

1 started to try to soar in be- 
tween two approaching Invison 
ships. . . mistake . . . Invison fire lit 
up my ship and it was all over Was 
my attempt at revenge thwarted? 
No! I had two more ships remain- 
ing. 1 guessed that the Invisons 
would have been aggravated that 
I was pulling the old three-ship 
routine, but it's MY video game 
and MY story, so I can do what- 
ever I want. This time, I had better 
luck against the Invisons. After 
several close calls, I defeated them 
by anticipating where they would 
reappear, shooting and then quickly 
retreating. I then approached 
the docking base unchallenged. 
While there were no ships or 
enemy fire to deter me, it was still 
difficult to maneuver my ship 
through the subtenranean tunnels 
to the docking base. But I made 
it, and readied myself for the 
showdown. 

As far as the outcome of my 
conflict with the Prince, I'll leave 
you to guess what happened. It's 
time for a new script, with new 
characters, new plot develop- 
ments, and maybe a new outcome. 
This space adventure stuff can get 
to be very absorbing; I would 
advise you to ti^v it and see what 
you can come up with. Remember: 
after you've gotten through level 
one and killed the Prince, escaped 
the galactic posse, located your 
long-lost Aunt Bertha, or what- 
ever, then there's the more chal- 
lenging level two. And that's 
another story just waiting to 
be told. 



Everything You 

Always Wanted 

to Know About 

Winning at 

Avenger* 

'Ittell feal (ft» telling you right now 




"Winning isn't everything. It's 
the only tiling." These words, ut- 
tered first by Vince Lombardi and 
repeated by scores of overbearing 
coaches and fathers who've lost 
their perspective on child-rearing 
and life in general, have inspired 
countless little leaguers, weekend 
quarterbacks, and high school 
athletes to do anything within their 
power to taste the thrill of victory, 
leaving their opponents to swallow 
the agony of defeat. 

I Values such as good sportsman- 
ship may be good for an honor- 
able mention now and then, but in 
the end it's the winner who rides 
off into the sunset with the giri and 
the gold. Why settie for Miss Con- 
geniality if you can take home the 
big prize? The aim of this article is 
to pinpoint exactly how one can 
become a worid-class competitor 
and gracious victor at the game of 
Avenger specifically, although the 
basic principles can be applied to 

I any form of competition. 

I Avenger is a game for one or 
two players. It is the latter version 
we are concerned with. For those 
not familiar with the game. Avenger 
features a formation of alien invad- 
ers who close in on your craft on 
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Everything You Always Wanted 
To Know Continued 

the planet's surface, dropping 
bombs and laser fire as they travel 
back and forth across the screen 
while you try to destroy the whole 
formation. It is an interesting game 
to play alone, but against an op- 
ponent the game takes on a new 
dimension. When you emphasize 
victory at all costs, you can adopt 
one or more of several different 
strategies for whipping your op- 
ponent. Each method has its own 
distinct flavor and each lends 
unique characteristics to the 
competitive arena. 

Method One: 

Fair Play, Hard Work, And 
Superior Ability 

This is the hold-your-head-high, 
grit-your-teeth, Ail-American way 
to become a winner. It involves 
developing your reflexes and hon- 
ing your skills in Avenger to a level 
so lofty that the aliens mutter "Oh 
no, not him again!" when you 
grab the joystick. 

To become a true great, you 
need not only natural skills, but 
also mental toughness and dedi- 
cation. There will be times when 
you'll realize that other things in 
life are important besides becom- 
ing a great Auenger player (such 
as meals, births in the immediate 
family and winning the lottery), 
but you'll also realize how over- 
rated those things really are. 

Get used to your parents, 
children, spouse, and friends be- 
coming irritated because they can 
never watch TV due to your con- 
stant involvement with the game. 
Tell them there's nothing good 
on anyway. Get used to hearing 
comments like, "Is that joystick 
surgically attached, or what?" 
Sometimes one must undergo 
true hardship to achieve greatness, 
and sarcasm is just another test of 
one's spirit. 

Method Two: 

Beating The System 
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This is also an AU-American 
way to triumph over opponents 
that are just not as sharp as you. 
This involves using your intelli- 
gence, guile, and mental acuity to 
develop the most effective system 
to "beat the game". Are these not 
the skills that made this country 
great? Well, 1 think so anyway. 

An effective strategy can allow 
even the most uncoordinated, 
under-talented loser to become 
a dominating, over-confident 
egotist, . . in other words, a win- 
ner. The most effective strategy 
I've come across is shooting out 
the far left (or far right) columns, 
which causes the entire formation 
of aliens to take longer before ad- 
vancing toward your ship on the 
planet's surface. The formation 
advances when it reaches the 
end of the screen, so if you keep 
shooting all the aliens in the col- 
umn nearest the edge of the 
screen, it will take them longer 
to reach that edge. 

Also, the formation speeds up 
as you destroy individual aliens. 
To keep it from moving too fast 
too soon, one must leave the end 
column alone at a certain point 
and shoot the lowest aliens in each 
row. This takes a fine sense of judg- 
ment to know exactly when to 
change the focus of your attack 
without having the aliens speed 
up, but if you can master the tim- 
ing the game will be a breeze. 

To rack up more points, one 
might also discover how to "un- 
randomize" the point values for 
the Mystery Ship that floats across 
the top of the screen. On certain 
shots, specifically your twenty- 
third shot and every 15 thereafter 
(if you count each shot you fire), 
you can get the maximum point 
value for the Mystery Ship in 
the VIC version of Auenger. You 
might be able to do the same with 
the 64 version and you might not 
Since it's not inconceivable that 1 
might be challenged to a game for 
a substantial amount of money by 



someone reading this article, I'll 
leave you to your own resources 
to figure that one out 

Method Three: 

Distraction 

You may be noticing now that 
there is a decreasing legitimacy to 
these methods as you read further 
along. Dishraction, while not being 
immoral, is generally frowned upon 
by people who have mastered 
either of the first two methods. 
But let's face it if you still have 
not gotten the hang of those two 
methods, distraction can be a very 
useful competitive tool. 

Distraction requires creativity, 
aggressiveness, and often con- 
vincing acting skill to be effective. 
While your esteemed opponent 
demolishes his ninth or tenth con- 
secutive rack of aliens, and you 
languish, unable to conquer even 
level one, a distractor may be just 
the thing to break his concentra- 
tion and bring him back down to 
your level. Some disb-actions may 
be verbal in nature: "Was that 
the telephone 1 heard ringing just 
now?" or "Did you see that rabid 
dog in the kitchen?" Subject mat- 
ter is often important. Which 
statement is more likely to grab 
your attention? Would your con- 
cenh-ation be shattered more by 
someone uttering, "Sure looks like 
rain today" or by an excited query 
of, "Wasn't that Chairman Mao in 
that UFO with a cure for cancer?" 
1 think the answer is obvious. 

Sometimes verbal distractors 
just aren't effective, and more 
elaborate productions may be 
required. I once thrashed an 
over-confident opponent when 
1 brought the entire Osmond Fam- 
ily in to sing a medley of popular 
movie theme songs in the middle 
of his third rack. 

A general rule of thumb for 
dishractions is: the more outra- 
geous, the more effective. Fake 
death scenes, however, are discour- 
aged, since there is a certain "boy 
who cried wolf" effect involved. 



Therefore, I would recommend 
using this ploy only if you are in 
good health or are certain that the 
other person won't do anything 
as to actually cause you to expe- 
rience the "boy who cried wolf" 
effect. The bottom line is that a 
distractor can be an effective strat- 
egy and also a lot of fun if you like 
making your opponent gnash 
his teeth. 

Method Four: 
Intimidation 

The effectiveness of this method 
depends a great deal on the physi- 
cal characteristics of you and 
your opponent. This is not recom- 
mended if you weigh under 90 
pounds or your opponent is wanted 
for manslaughter in more than 
three states. 

If you do think you can bring it 
off, intimidation can be a particu- 
lariy effective tool in winning con- 
sistently. One drawback is that 
your supply of opponents (and 
friends) may dwindle dramatically 
if this strategy is overused. 

Intimidation can range from 
the harmless to the extreme. 
The lighter forms of intimidation 
include glaring at your oppo- 
nent, cursing under your breath at 
your own mistakes and your rival's 
successes, and becoming visibly 
angered at your own inability to 
play the game. Some of the more 
serious ways to intimidate your 
opponent are screaming obscen- 
ities while banging the table with 
your shoe when your oppo- 
nent nears the end of a round, 
sticking pins in a doll that bears 
an uncanny resemblance to your 
opponent, and paying someone 
named Dutch to break your op- 
ponent's fingers as he tries to play. 

Intimidation comes a lot easier 
to some people than others, so be 
sure you can take care of yourself 
before trying anything too extreme. 
A word of warning about using in- 
timidation to win at Avenger: once 
you use it, expect to be labelled a 



"poor sport". At this point, you 
can remind those snivelling losers 
of Vince Lombardi's words quoted 
at the beginning of this article. And 
for heaven's sake, don't try to in- 
timidate anyone named Dutch! 

Method Five: 

Outright Cheating 

Cheating carries with it a uni- 
formly negative connotation. 
"Cheaters never prosper" and 
"Cheaters never win and winners 
never cheat" are two sayings that 
sum up our culture's view of those 
who chose not to play by the rules. 
They are, of course, entirely incor- 
rect and quite misleading. Some 
of our most successful business- 
men, politicians, and game players 
have done extremely well with an 
underdeveloped sense of fair play. 
We are brought up to believe that 
cheating is "wrong" and that only 
"bad" people cheat. But you may 
also recall that many are brought 
up believing in Santa Glaus, fairies, 
and other fallacies. So why cling 
to thoughts that are really remind- 
ers of bitter childhood disappoint- 
ments? It's time to leave the 
past behind! 

If you have failed to master 
the intricacies of the first four 
methods, cheating offers yet 
another chance to be a winner. 
There is an almost unlimited 
number of options available to 
the really creative cheater A ma- 
jor challenge (and what makes 
cheating an art) is pulling it off 
without causing your opponent 
to suspect your integrity in the 
least. Successfully cheating an op- 
ponent who knows he should' ve 
won leaves him feeling puzzled 
and frustrated. 

Cheating, while not the most 
ethical way to win at Aueriger, 
can be as gratifying as any other 
method. I would not recommend 
cheating for most players, because 
there is more than a little potential 
to wind up disgraced, ostracized or 
even physically abused. If the op- 



ponent you've classified as having 
the awareness of an English muffin 
turns out to have quick eyes, a 
short temper, and a lightning-fast 
left hook, cheating may seem like 
a poor choice indeed. 

Some of the more obvious and 
effective ploys (without giving 
away too many secrets) involve a 
slight misdirection of your oppo- 
nent's attention. If my opponent 
is beating the pants off me, one of 
my favorite maneuvers is to wait 
until he's not concentrating and 
play during his turn. I get his score, 
and suddenly he's way behind try- 
ing to catch up to his own score! 
Since Avenger for the 64 only 
plays with one joystick out of con- 
trol port #1 for both players, the 
potential exists for an elaborate 
pre-meditated cheat. Attaching 
both joysticks and giving your op- 
ponent the useless one hooked 
up to port #2 and controlling his 
game with your working joystick Is 
a great ploy that is often successful 
and hard to detect. The key ele- 
ment is how convincingly you 
handle his "game". 

There are, of course, scores 
of other ingenious ways to cheat, 
but most are far too diabolical to 
be revealed here. My best advice 
to you on cheating is: If you must 
cheat, DON'T GET CAUGHT! 
If you do get caught and try to im- 
plicate me, I'll deny everything 
and you'll be on your own. Re- 
member, the only thing worse 
than losing is cheating and still 
losing. Actually, there are proba- 
bly a lot of worse things than either 
of those alternatives. 

So those are the five methods, 
each effective in its own way. Try 
them out, combine them, enjoy 
them; when you decide on a 
method and style that suits you, 
make it your own. Then go out 
there and show the world how to 
play Auenger! Remember: Win- 
ning isn't everything, , , I'm sure 
you know the rest. C 
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There comes a time, working 
with bit-mapped graphics on the 
Commodore 64, when simply 
drawing on the screen is not 
enough. Suddenly it becomes 
important to save the screens. 
Perhaps you've drawn a master- 
piece with a joystick painter, maybe 
the design you've created is des- 
tined to become the art piece de 
resistance of the 80's or maybe you 
just have a nifty doodle. Whatever 
the reason may be, you need to be 
able to save your screens to tape 
or disk and be able to recall them 
again later. "Riis article will present 
not one but two (2) ways to do just 
that The first save/recall programs 
use a sequential file to save the data 
and the second pair of programs 
uses (now don't get squeamish) 
the Kernal SAVE routine. 

The Data 

A brief review of the mechanics 
behind bit-mapped graphics ^vill 



remind us that the screen is ac- 
tually displaying 8000 bytes of 
memory from 8192 to 16191. One 
important result of this is that using 
RUN/STOP RESTORE will not 
affect these 8000 bytes; neither 
will using the NEW command 
or loading in a program (as long 
as it is less than 6K). This is cer- 
tainly good news! Once a design 
or drawing has been completed, 
th« program can be ended and 
a new program can be loaded to 
save the high resolution screen. 
With this new knowledge we 
can now consider the contents 
of the 8000 bytes of memory that 
the high resolution screen uses. 
When the bytes are displayed on 
the screen they appear as dots (or 
pixels), but in memory they are 
simply numbers. If you were to 
look at each of the 80(X) locations 
from 8192 to 16191 you would 
find a number between (all eight 
bits 0) and 255 (all eight bits 1) in 



each location. So to save a high 
resolution screen, what we actually 
have to do is save 8000 numbers. 

Sequential Files 

The information presented 
so far may be just what some of 
you needed to understand how 
to save high resolution screens, 
and you're now ready to run off 
to your favorite sequential file 
program. If you are one of these 
people then feel free to skip this 
section, but be sure to rejoin us 
later when we start discussing the 
kemal routine. In the meantime, 
let's talk about sequential files. 

A sequential file can be thought 
of as a list. It can be a list of any- 
thing and can be just about as long 
or as short as you want it to be. 
An everyday equivalent of using 



a sequential file is a shopping list 
that you keep in a desk drawer. If 
you want to start writing your list 
you have to first OPEN the desk 
drawer. You can then write or 
PRINT the items onto your list. 
Then when you are done, you 
would put the list back in the 
desk drawer and CLOSE it. In this 
example, the desk represents the 
medium (tape or disk) that you 
are working with. 

Now imagine that you went to 
the store to go shopping and you 
forgot your list. So you walk over 
to the pay phone and call home. 
Trying to get your son (or daugh- 
ter, or husband. , .) to read you 
your shopping list would be just 
about the same as telling the com- 
puter to read a sequential file. 
Let's compare the two procedures: 



To Johnny 



To Computer 



Hi Johnny, this is mommy. 



No equivalent 



1 want you to do something 
for me. 



No equivalent 



Open the drawer 



OPEN 



on the upper left comer 



1. (which drawer) 



of the old desk, 

and be careful of splinters. 



8. (which desk) 



1, (any commands?) 



Get the shopping list, 



'shopping list, s, 



and you have to read it to me. 
Read what the first thing is. 
. (the whole list) 



INPUT #l,a$ 



Now close the drawer. 



CLOSES (same drawer) 



Thank you Johnny. 



No equivalent 



The open command in this 
example was OPEN 1,8,1, "shop- 
ping list,s,r". This is the open com- 
mand for reading a sequential 
file from disk (the eight tells the 
64 to work with the disk drive). If 
the last letter in quotes were a 
"w" instead of an "r" then the 64 
would write to the file. The same 
open command for tape would 
be OPEN 1,1,0, "shopping list". In 
this open command, the second 
number is a 1, which tells the 64 to 
work with the datassette. The third 



number (0) tells the 64 to read 
from the file. If this were a 1 then 
the 64 would write to the file. 

Here's a short program to open 
and write the 8000 bytes of data to 
a sequential file: 



500 BASE=8192 
510 INPUT"FILENAME";F$ 
520 OPEN 1,1/1/F$ 
530 FOR X=BASE TO 

BASE+7999 
540 P=PEEK(X) 
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550 PRINT#1,P 
560 NEXT 
570 CLOSE 1 



If you are working with a disk 
drive, substitute this line 520: 

520 OPEN 1,8,1,F$+" 

,S,W" 

Line 550 is the only tins that 
might confuse you a little. The 
PRINT #1 statement tells the 64 to 
put information into a sequential 
(or any other kind) of file. The line 
numbers start at 500 so the whole 
program can be added directly to 
the base graph program that I pre- 
sented in the last issue of Power/ 
Play. (See page 55 in this issue for 
the base graph program.) 

So this program will save a high 
resolution screen to either tape 
or disk. Did I mention size yet? 1 
guess not. Well we're saving 8000 
bytes and there are 256 bytes in 
a block, so the file should be 32 
(8000/256) blocks. Unfortunately, 
sequential files aren't that neat. In 
fact, each byte that we store with 
the program uses up to six bytes in 
the file. This is because a number 
is stored as a string in a sequential 
file with each digit using one byte. 
In addition to this there is a space 
character before each number and 
both a space character and car- 
riage return character after each 
number. Storing a three-digit 
number therefore uses six bytes. 

The result of these extra bytes 
is that a sequential file containing 
one high resolution screen uses 
about 140 blocks. Now that's a 
lot of blocks! Keep that in mind 
before trying to use this saving 
program. 

How do you get the screen back 
out of the sequential file? Basically 
we just reverse the process. Open 
the sequential file to read, read 
each byte and POKE them back 
into memory locations 8192 



through 16191. Here's a program 
to do that: 



10 BASE=8192 

20 INPUT"FILENAME";F$ 

30 OPEN 1,1,0,F$ 

40 FOR X=BASE TO BASE+ 

799 9 
50 INPUT#1,P 
60 POKE X,P 
70 NEXT 
80 CLOSE 1 
90 POKE 53272, PEEK 

(53272)OR 8 
100 POKE 53265, PEEK 

(53265)OR 32 
110 FOR 1=1024 TO 2023 

:P0KE I, 3: next 
120 POKE 1024,16 
130 GET A$: IF A$<>" 

[SPACE] "THEN 130 
140 POKE 53265, PEEK 

(53265)AND 223 
150 POKE 53272, PEEK 

(53272)AND 247:PRINT" 

[CLEAR] " :CLR:END 

If you are using a disk drive sub- 
stitute this line 30: 



30 OPEN 1,8,5,F$+",S,R" 

This is a nice little program be- 
cause in addition to loading the 
screen back into the 64, it also 
switches you to bit-mapped mode 
so that you can see the screen. 
Just press the space bar when you 
tire of looking at the screen. 

A Kernal Save 

When I first wrote sequential 
saving and loading routines for 
saving screens, I was just as happy 
as could be. But then ... I started 
to get impatient. I figured that 
there must be a way to make this 
process even quicker. After fid- 
dling with some machine language 
routines, and getting nowhere, I 
decided to try the Kernal SAVE 
routine. Suddenly all my problems 
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faded away as the Kemal routines 
zipped through their operations 
and saved each screen in a 32- 
block program file (remember that 
8000 bytesv'256 bytes/block = 32 
blocks). A program file, you may 
exclaim! Yes, I retort, and program 
files can be loaded directly into the 
64. Well, hopefully I have you in- 
terested enough now to overcome 
your initial fear of using the Kemal 
routines. 

Here is a simple, eleven-line 
program, using Kemal routines 
and written in BASIC, to save a 
high resolution screen: 



500 


INPUT"FILEb]AME" 




;F$ 


510 


L=LEN(F$) 


520 


FOR X=l TO L 


530 


POKE 49151+X,ASC 




(M1D$(F$,X,1)) 


540 


NEXT 


550 


INPUT"TAPE [SPACE] 




OR[SPACE]DISK" 




;D$ 


560 


D=1:IF LEFT? 




(D$,1)="D"THEN 




D=8 


570 


POKE 780, 4: POKE 




781,D:POKE 782, 




255:SYS 65466 


580 


POKE 780, L: POKE 




781,0:POKE 782, 




192:SYS 65469 


590 


POKE 251,0:POKE 




252,32 


600 


POKE 780,251:POKE 




781,63:P0KE 782, 




63:SirS 65496 



Line 500 allows you to name 

your screen file (no more than 

16 characters). 

Line 510 finds the length of the file 

name you entered. 

Lines 520-540 set up a loop 

that stores the ASCII value of each 

character of the file name. The 

stored name begins at location 

49152. 

Lines 550-560 allow you to 



choose either tape or disk, and set 
the device number accordingly. 
Line 570 sets up the logical file 
using the SETFT-S Kemal routine. 
This is the equivalent of an OPEN 
statement. Locations 780, 781 
and 782 can be used in BASIC to 
set the accumulator, X register and 
Y register. 780 is POKEd with the 
logical file number (4). 781 is 
POKEd with the device number 
(D). 782 is POKEd with a 255, 
which tells the 64 that there are no 
special commands. A SYS65466 
then mns the SETFLS routine. 
Line 580 sets the name of the 
file using the SETNAM Kemal 
routine. 780 is POKEd with the 
length of the file name (L). 781 
and 782 are POKEd with the low 
and high bytes of the location of 
the file name (49152). 
High Byte = lNT{49152/256 

= 192 
Low Byte = 49152- 256 

* High Byte = 
A SYS65469 then runs this 
routine. 

Line 590 uses memory locations 
251 and 252 to store the low byte 
and high byte of the first memory 
location to save (8192). 
High Byte = lNT(8192/256) 

= 32 
Low Byte = 8192 - 256 * 
High Byte = 
Line 600 saves the 8000 bytes 
of data using the SAVE Kemal 
routine. 780 is POKEd with the 
zero page address that we used in 
line 590 (251). 781 and 782 are 
POKEd with the low and high 
bytes of the last memory location 
to save (16191). 
High Byte = lNT{16191/256) 

= 63 
Low Byte = 16191 -256* 
High Byte = 63 
A SYS65496 then mns this 
routine and saves our file. 

Now you can save all the 
screens that you want to. All we 
have to do is find a way to get 
them back into the 64. 1 men- 
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tioned earlier that the Kemal saves 
the data as a program file. It seems 
that all we have to do is put a 
LOAD command in a program 
and the screen will load. This is 
true. However, whenever a LOAD 
command is within a program, the 
64 will automatically RUN the 
program after it is loaded. 

There are ways around this 
problem if we just take a minute to 
think it through. First of all, we can 
tell the 64 to load a program back 
into the same place it came from. 
If we do that, then when the pro- 
gram tries to run, it will run the 
same program that we used to 
perform the load. If we set a 
marker variable before we load in 
the screen file, we can check that 
variable when the program starts 
to run again and jump to some 
other place in the program. Here 
is a program to load your screen 
files back into the 64: 



10 IF T=l THEN 40 

20 INPUT"FILENAME";F$ 

30 T=1:L0AD F$ 

40 BASE=2*4096:POKE 

53272, PEEK{53272) 

OR 8 
50 POKE 53265, PEEK 

(53265)OR 32 
60 FOR 1=1024 TO 2023: 

POKE I, 3: NEXT 
70 POKE 1024,16 
80 GET A$:IF A$<>" 

[SPACE] "THEN 80 
90 POKE 53265, PEEK 

(53265)AND 223 
100 POKE 53272, PEEK 
(53272)AND 247: 
PRINT" [CLEAR] ":CLR 
:END 



If you are using a disk, substitute 
this line 30; 



Well, that does it for now. 
There's a lot of new information 
here so don't get discouraged if 
some of it sounds too complicated. 
Work through the programs one 
at a time, and look up the Kemal 
routines in your Programmer's 
Reference Guide. If you stick with 
it, slowly but surely you will begin 
to understand the concepts pre- 
sented here, and you'U be ready 
for the next step: would you be- 
lieve some machine language rou- 
tines to help you clear the screen 
and change the screen colors? C 



Base Graph Program for 
Bit-Mapped Graphics 

Use this base graph progfam, which 
appeared in the Summer Issue, as your 
jumping off point for the programs Jim 
presents in this issue. 

1 P0KE53265.PEEK(53265>0R32 

2 P0KE53272,PEEKC532T2)0R8 

3 FORX=e 1 92T0 1 6 1 9 1 - POKEX , 
•• NEXT 

4 FORI*1024TO2923;POKEI, 
3 : NEXT 

190 GOTO240 

200 CH-INTCX^SJ^RO-INKV/'S) 

: LN=VRHD7 
210 BV=8192+RO*320+8*CH+LN 

:BI=7-(XRNn?> 
220 POKEBV,PEEK';BV)0RC2TBn 
230 RETURN 
240 POKE1024.16 
250 0ETR«aFR*O" "THEH250 
260 P0KE53265.PEEK<53263) 

RND223 
270 P0KE33272.PEEK(53272V 

RND247 
275 CLR:PRINT"n":END 



30 T=1:L0AD F$,8,l 



COMMODORE: POWEFVPLAY Fall 1983 55 



MAKING 
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PART 4 



In this part, Paul shows you how to use the filters 
in your Commodore 64's Sound Interface Device 
(SID) to make your Commodore 64 "piano" (see 
last issue) sound even more realistic. 

BY PAUL HIGGINBOTTOM 



Have you recovered from the 
VERY wordy article last time? I 
hope so, because this time, we're 
moving onto NEW ground. As 
mentioned at the end of the last 
article, we will now explore the 
capabilities of SID's filter, which 
has been mentioned a couple of 
times but not explained fully. 

So, what is a FILTER? Let's 
make a comparison. You've prob- 
ably heard of, and maybe used, 
filter paper. It's used in almost all 



coffee makers. The FILTERing 
action of the paper in a coffee 
maker allows very fine particles 
of coffee to pass through, with the 
hot water, to form what we know 
as the drink coffee, but does not 
allow the larger particles through. 
Essentially then, the filtering pro- 
cess is one where only PART of 
the "somethings" involved are 
allowed to pass through, and the 
rest is not. In the case of the cof- 
fee filter, the water and fine coffee 
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particles can pass through, while 
the larger ones cannot. A sound 
filter, on the other hand, allows 
only a certain portion (or portions) 
of the sound input to pass through 
to the output (your speaker and 
then your ears). 

How do we control a filter? 
Think of a potato grading ma- 
chine. Such a machine can be 
programmed to give us a certain 
selection of potatoes. If we want 
just the small ones, we allow the 
potatoes to roll over a tray which 
has holes in it with the diameter of 
the maximum size we want. The 
bigger we make the holes, the 
more we let through, until eventu- 
ally, we would have holes so big 
that everything could pass through. 
How about if we wanted only 
medium sized potatoes? The holes 
would need to be the diameter of 
the MAXIMUM sized medium 
potatoes. But this would allow all 
the small ones through, too, so we 
would have to let the potatoes 
falling through the first tray roll 
onto a new tray with holes slightly 
smaller than the MINIMUM size. 
The potatoes smaller than our 
requirements would fall through 
these holes, and we would take 
what's left on the tray (i.e., not too 
big, and not too small). Similarly, 
the ones left on the very topmost 
tray would be the larger ones. 

This is quite similar to the SlD's 
sound filtering process. For exam- 
ple, if we only want the frequencies 
below a given frequency, we use 
the LOW PASS MODE in SID. 
This allows only frequencies lower 
than a specified frequency to pass 
through to the output. Like the 
potato sorter, we also have other 
modes to select different portions. 
We have BAND PASS MODE, 
which will allow a given amount 
above and below a specified fre- 



quency to pass through. We also 
have HIGH PASS MODE (I know, 
you guessed it!) which will only 
allow frequencies higher than 
a specified frequency to pass 
through. 

The "sfDecified frequency" I 
keep referring to is known as the 
CUT-OFF FREQUENCY Also, 
I have made it seem like the filter 
cuts out completely any sound 
immediately below, slightly below 
and above, or above (depending 
on whether it's LOW, BAND, or 
HIGH pass). This isn't so; let's take 
LOW pass mode for example: 



As shown in Figure 1, the filter 
quiets frequencies above the cutoff 
frequency in proportion to how far 
above it they are. If a frequency is 
only slightly above the cutoff, 
it will be quieted slightly. If a long 
way above it'(relatively), it will 
practically be cut out altogether. 

That's the theory; now the prac- 
tice. After loading the final pro- 
gram from the last article into your 
Commodore 64 (see page 59), 
change the following lines; 
Change line 540 to: 

546 poke- s 1 d+24 .r 1 5+ 1 6 



Figure 1. Filters in the SID Chip 
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The addition of 16 to this POKE 
sets the filter to LOW PASS mode, 
thus quisting frequencies higher 
than the cutoff. 

For BAND PASS, we would add 
32 instead of 16 (quiets frequen- 
cies proportionate to how far 
above and below the cutoff they 
are), and for HIGH pass we add 
64 (quiets frequencies below the 
cutoff). Modes can also be added, 
so we could have low and high 
pass, so as to quiet frequencies 
around the cutoff (this is called 
NOTCH PASS, or BAND 
REJECT), 

Change Line 550 to: 
55G re-ad ■B-.^d. 



,f 



P I.I.I 



.^re 



The extra parameter C in the READ 
statement is our cutoff value, which 
we will put in the DATA statement 
in line 600. 

The extra parameter RE in the 
READ statement is a parameter 
not mentioned before, called RES- 
ONANCE. The filter emphasizes 
frequencies (makes a sharper 
sound) at the cutoff, and the de- 
gree to which it does this is known 
as resonance. We can select a 
value of 0-15 for this. I wouldn't 
worry if this doesn't make a lot of 
sense; it's use is really only pos- 
sible in machine language pro- 
grams, where the resonance can 
be changed rapidly to produce 
more complex harmonics. 
Enter: 
€. 1 pcke s i d+23 ,, 7^■re* 1 1" 

SID's filter doesn't have to fil- 
ter all the voices. We can specify 
which of the three we wish to filter. 
Of course, in our "piano" pro- 
gram, we want all the sound to 
be the same so we tell SID to filter 
all the voices. This is controlled 
in register 23. The value 7 equals 
1+2 + 4, and each of the three 



numbers added are the ones to 
filter the voices 1,2, and 3 respec- 
tively. The addition of RE*16 is 
adding the previously explained 
parameter resonance. 
Change line 60O's DATA to: 



Now to experiment. If you run 
the program with the changes 
mentioned it won't sound par- 
ticularly different from what 
you heard before you made the 
changes. That's because our filter 
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Make sure line 510 reads: 



510 



■..' C' i Q e — I C' c. 

;i,i.ia.i-.'e=32 



Enter: 

6 20 c i^i = i n t '' ■■ /' 9 > : >i ! = c - 

t.30 poke ■5id+21.rCl 
: t'-' o y. e s i >'A+'2'2 .- c h 

These last two lines set the 
cutoff frequency, C. The cutoff is 
specified in registers 21 and 22 
and can range from 0-2047. Un- 
like the way we have specified 
values larger than 255 before (i.e., 
"lots" of 256 + some other value 
between zero and 255), this one is 
specified in "lots" of eight and some 
other value [remainder] between 
zero and seven, so we can cal- 
culate how many eights by finding 
the integer value of the cutoff 
divided by eight (ch=int(c/8)) and 
find the remainder by subtracting 
how many eights multiplied 
by eight from the cutoff (c-ch*^8). 



mode is LOW PASS, and the 
cutoff is almost at maximum, 
therefore letting almost all the 
sound through, since almost all 
will have frequencies lower than 
the cutoff, [f we change the value 
of the cutoff in line 600 from 2000 
to, say, 1200 and run the program 
again, you should definitely be 
able to hear a difference. The 
sound seems muffled. This is be- 
cause the filter has removed a lot 
of the high frequency parts {har- 
monies) of the sound. (Note: in 
between the two values used for 
cutoff here, you may have noticed 
that a good piano sound could be 
made. Experiment!) 

If we now change the +16 to 
+ 64 in line 540 so that we select 
HIGH PASS filter mode instead 
and run the program again, we will 
hear that the "lows" have gone 
from the sound, because only 
those frequencies higher than the 
cutoff are getting through without 
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being quieted. Now change the 
cutoff in line 600 to 1800 and run 
the program again and you'll hear 
that we've REALLY chopped out 
any low harmonics, and it sounds 
more like a harpsichord. 

Try changing the OCT (octave) 
variable (between 1 and 6) and 
the WAVE (waveform) variable 
(one of 16, 32, 64, 128) in line 510 
and you should begin to see that 
the filter is probably the feature 



which makes the SID surpass an\; 
sound chip around. 

If you really want to get adven- 
turous, you might be able to work 
out how to change the cutoff 
dynamically (while the notes are 
being played) to really produce 
some interesting effects (like guitar 
"twangs" for example). 

Next time we'll be going from 
this "playing" program to one 
where we can put a tune into 



the program in DATA statements 
and thus have the computer play 
FOR us! 

The Commodore 64 Pro- 
grammer's Reference Guide gives 
a lot of information on the SID and 
programming it (as well as another 
400 pages on loads of other in- 
teresting aspects), so I advise you 
to get a copy. 

Good luck! C 





Program 


from Part 3 




Use this program as a reference for Pau 


's changes here in Part 4. 


100 


FR=3520 :REM NOTE 'A' IN 


700 


K$="Q2W3ER5T6Y7UI9O0P@-* 




TOP OCTAVE 




[POUND] "" 


110 


C0=2" (1/12) 


710 


DIM K(255) 


120 


FOR 1=1 TO 9:FR=FR/C0:NEXT 


720 


FOR 1=1 TO LEN(K$) 


130 


SS=16777216 


730 


K(ASC(MID$(K$,I,1)))=I 


140 


CS==1022730 


740 


NEXT 


150 


FC=SS/CS 


750 


PRINT: PRINT" [SPACE] 2 


200 


DIM F(7,ll) 




[SPACE] 3 [SPACE2] 5 [SPACE] 6 


300 


FOR 1=0 TO 11 




[SPACE] 7 [SPACE2] 9 [SPACE] 


310 


S=FR*FC 




[SPACE2] - [SPACE, POUND] " 


400 


FOR J=7 TO STEP-1 


760 


PRINT"Q [SPACE] W [SPACE] E 




:F(J,I)=S:S=S/2 




[SPACE] R [SPACE] T [SPACE] Y 


410 


NEXT 




[SPACE] U [SPACE] I [SPACE] 


420 


FR=FR*CO 




[SPACE] P [SPACE] @ [SPACE] * 


430 


NEXT 




[SPACE] *" 


500 


SID=54272 


800 


GET A$:IF AS=""GOT0 800 


510 


VOICE=0:OCT=4:WAVE=3 2 


810 


KEY=K(ASC(A$) )-l 


520 


VM=7:HI=256 




:IF KEY<0 GOTO 800 


530 


FOR 1=0 TO 23: POKE SID+1,0 


820 


IF KEY>11 THEN PRQ=F(OCT+ 




:NEXT 




1,KEY-12) :GOTO 835 


540 


POKE SID+24,15 


830 


FRQ=F(OCT,KEY) 


550 


READ A,D,S,R,PW 


835 


FH=INT(FRQ/HI} 


560 


FOR 1=0 TO 2:INDEX=SID+I* 




:FL=FRQ-FH*HI 




VM 


840 


INDEX=SID+VOICE*VM 


570 


POKE INDEX+5,A*16+D 


850 


POKE INDEX, FLrPOKE INDEX+ 


580 


POKE INDEX+6,S*16+R 




1,FH 


585 


POKE INDEX+2,PW AND 255 


860 


POKE INDEX+4,WAVE 


590 


NEXT 




:POKE INDEX+4,WAVE+1 


600 


DATA 5,11,10,0,800 


870 


V0ICE=V0ICE+1:IF V0ICE>2 


686 


POKE INDEX+3,PW/HI 




THEN VOICE=0 






880 


GOTO 800 
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no more penoils, 
no more booko 



Interactive LOCO continued 

the top part of the screen) you will have little or no 
gravitational pull. As you get closer to the planet 
logo's surface, gravity will become very strong 



and you will have to keep your rockets blasting 
away from the planet in order not to be sucked 
down to a fiery and inglorious end. C 



LOGO Lander For Use With 
The Commodore 64 and LOGO. 



TO LANDER 

MAKE "HISCORE ( 

TITLE 
START 
END 



-10000 ) 



TO TITLE 

CLEARTEXT CURSOR 15 PRINT [LOGO LANDER] 

CURSOR 12 2 PRINT [BY DAVID MALMBERG] 

CURSOR 5 PRINT [TRY TO LAND YOUR COMMAND MODULE ON THE] 

PRINT [PLANT LOGO WITHOUT CRASHING!!!] 

PRINT [] 

PRINT [USE THE FOLLOWING CONTROL KEYS:] 

PRINT [] 



CURSOR 

CURSOR 

CURSOR 

CURSOR 

CURSOR 

CURSOR 

PRINT 

PRINT 

CURSOR 

CURSOR 



5 

5 

5 

5 

5 

5 
[] 
[ENTER 

19 18 

19 19 



10 

1 1 
12 

13 

1^ 
15 



PRINT 
PRINT 
PRINT 
PRINT 

PRINT 
PRINT 

SKILL 
PRINT 
PRINT 



[R - TO ROTATE MODULE RIGHT] 

[L - TO ROTATE MODULE LEFT] 

[A - TO BLAST MODULE TOWARD LEFT] 

[S - TO BLAST MODULE FORWARD] 

[D - TO BLAST MODULE TOWARD RIGHT] 

[0 TO 9 TO CHANGE BLAST FORCE] 



LEVEL: 1 - EASY] 
[2 - AVERAGE] 
[3 ~ HARD] 



MAKE "HARD 
IF :HARD = 

IF :HARD = 
MAKE "HARD 



FIRST REQUEST 
1 MAKE "HARD 3 
3 MAKE "HARD 1 
2 



STOP 
STOP 



END 



TO START 

SET. UP 

MOVE :TIME 
END 
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TO SET. UP 

FULLSCREEN 

PENUP 

SETXY ( -155 ) ( -120 ) 

SETHEADING 90 

PENDOWN 

FORWARD 310 

SETX 

3ETY ( -126 ) 

PENUP 

MAKE "FORCE 1 

MAKE "VX 1 

MAKE "VY ( -1 ) 

SETHEADING 150 

MAKE "TIME 

MAKE "GFACTOR 0.4 + 

SETXY ( -150 ) 120 
END 



( ( 3 - :HARD ) / 10 ) 



TO MOVE :TIME 

MAKE "GF ( YCOR / 100 ) - 1.25 
MAKE "GRAVITY GFACTOR * GF * GF 
MAKE "VY :VY - :GRAVITY 



MAKE "NEW.X XCOR + ; 

MAKE "NEW.Y YCOR + ; 

LAND? 

SETXY : NEW.X :NEW.Y 

BOUNCE? 

COMMAND 

MOVE :TIME + 1 



VX 
VY 



END 



TO LAND? 

IF :NEW.Y > ( -120 ) STOP 

SETY C -120 ) 

MAKE "SPEED SQRT ( ( : VX * 

TEST ANYOF ( : SPEED > 3 * 

IFTRUE EXPLOSION 

WAIT 200 

MAKE "MILES SQRT ( XCOR * XCOR ) 

MAKE "SCORE INTEGER 10 * ( 200 - 
:MILES ) 

NODRAW 



:VX } -t- C 
HARD ) ( 



:VY * :VY 
VY < -2 * 



) ) 
:HARD 



SPEED + :VY- ( :TIME/ 5 )- 2 
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no more penoils, 
no more books... 





IFTRUE PRINT [YOU CRASHED 


IN FLAMES!!!] MAKE "SCORE:SCORE - 1000 




IFFALSE PRINT [GOOD LANDING!!!] 




CLEARINPUT 






PRINT [] 






PRINT1 [MILES FROM TARGET 


=] PRINT :MILES 




PRINT1 [IMPACT VELOCITY =] 


PRINT :SPEED 




PRINT1 [VERTICAL SPEED =] 


PRINT :VY 




PRINT1 [FLIGHT TIME z] PRINT : TIME | 




PRINT [] 






PRINT! [SCORE =] PRINT :SCORE 




IF :HISCORE / :SCORE PRINT [A NEW HIGH SCORE !!] MAKE "HISCORE rSCORE 




PRINT [] 






PRINT [HIT RETURN TO PLAY 


AGAIN] 




CLEARINPUT 






MAKE "ANSWER REQUEST 






IF : ANSWER = [] START STOP 






TOPLEVEL 




END 




TO 


EXPLOSION 
HIDETURTLE 
PENCOLOR 2 
PENDOWN 
SETHEADING 2^10 






REPEAT 9 [FORWARD 15 BACK 


15 RIGHT 30] 


END 




TO 


WAIT :Q 

IF :Q = STOP 

WAIT :Q - 1 




END 




TO 


BOUNCE? 






IF XCOR > 150 MAKE "VX ( - 


:VX ) STOP 




IF XCOR < -150 MAKE "VX ( 


- :VX ) STOP 




IF YCOR S 125 MAKE "VY ( - 


:VY ) 


END 




TO 


COMMAND 

MAKE "KEY GET. KEY 
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CLEARINPUT 



IF :KEY 
IF :KEY 
IF :KEY 
IF :KEY 
IF :KEY 
IF :KEY 
TEST NUMBER? 
IFFALSE STOP 
MAKE "FORCE 



• STOP 

'R RIGHT 30 STOP 
'L LEFT 30 STOP 

'A MAKE "ANGLE 270 THRUST STOP 
'S MAKE "ANGLE THRUST STOP 
'D MAKE "ANGLE 90 THRUST STOP 
KEY 



KEY 



END 



TO GET. KEY 

IF RC? OUTPUT READCHARACTER 

OUTPUT " 
END 



TO THRUST 

MAKE "BLAST : ANGLE + HEADING 
IF :BLAST > 350 MAKE "BLAST :BLAST - 360 
MAKE "VX :VX + : FORCE * ( SIN : BLAST ) 
MAKE "VY :VY + : FORCE * ( COS : BLAST ) 

END 



DRILEY SOFTWARE 

For Commodore 64"^ 

DELUXE ADDRESSER C101F 

Easy moiling lobels. eoch data file holds 
250 addresses. Updaie, Delete, Add, List, 
Labels, Son. i40.00/Tcipe. 

MANSION! C20lf 

The DUTLER whispers , . . "Somebody stole 
the fur coQil" Video map and dossiers. HOT 
so eosy to solve! i14.95/Tope. 

HIGH SEAS C204f 

Soil the Atloritic ih 1S11, recover stolen 
gold, ovoid mutiny, bring in wonted 
pirotes $14.P5/Iope. 

FUR TRAPPER C205F 

Explore the Rocky Mountains in 1545, 
□other pelts, trode for food. Lakes, villoges, 
ferns. il4.95/TQpe. 

DUkC KJ AC K TUTOR C210F 

Leorn to stand, hit, double, and split. Prac- 
tice see no rios. $14.95/Tope. 

MISSION 64 C215F 

Cinon enemy spocecraft threaten your 
mission Joystici"! or Keys. S19.95/TQpe. 

Add shipping of i, 75 per cassette tope. 



* Ail progiomj con be used on dish, too • 

P.O. 00X2913 

LIVERMORE, CA 94550-0291 

CoiTtinodor^ 64 ii [fadBmork of 



COMPUTER CASSETTES 

100% Error-Free • Fully Guaranteed 









■ ■•^ iU 


I «( ^L> 




« * 


■ • 





LENGTH 

C-05 

C-10 

C-20 

Boxes 

UPS $3.00 Pkg. 


PACK PACK 

..79<; 69<F 

.89* 79<P 

99« 89<P 

..26<P 21* 

$1S.00 Case 


C-10's 39C 

IMin. SOD Cif Lot) 

wfiabels ADD 4«, 
wfboxes ADD 13« 


^^ 






^ 


OR ORDERS ONLY 
1.800-528-6050 4 
Extension 3005 



MICRO-80™ INC. 

2665-P Busby Road 
Oak Harbor. WA 98277 
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The Most Support For 

VIC-20 

Commodore 64 

Best Prices • Over 500 Programs • Over 100 
Accessories • Absolutely Tlie Best Service • 
One Day Express Mail • Immediate Replace- 
ment Warranty • 15 Day Free Trial On All 
Products* Programming Knowledge*Techni- 
cal Knowledge • We Are The Only One In 
The U.S.A. With Complete Support For The 
Vic-20 And Commodore 64 Computers. 

We Love Our Customers 

No One! But No One! Can Compare 

PROTECTO 
ENTERPRIZES 

Box 550 • Barrington, IL 60010 

For Free Catalogs Write or Call 

INTRODUCTORY OFFER: PREMIUM LEATHERETTE DUST COVER LIST $8.95 SALE $4.95 



Call 312/ 382-5244 

8 to 5 Weekdays 9-12 Saturdays 



A Note from New Mexico 



by Betsy Byrne 



Kids in Nova Scotia and kids 
in Florida use their Commodore 
computers for exactly the same 
kinds of things. How did I come 
by this amazing bit of information, 
and why am I telling you? It seems 
like a good way to begin talking 
about the overwhelmingly positive 
response to Kids' Comer 1 have 
been receiving from Commodore 
users all over the continent. I have 
to admit that 1 did fudge a little, 
and send out a letter describing 
what I was doing with the kids sec- 
tion to all the Commodore user 
groups. 1 even included a nifty 
questionnaire, so 1 could get an 
accurate picture of YOU, my read- 
ers, and so I could be sure that 
the things 1 put in are the things 
that kids actually want in a section 
for kids. 

A big reason 1 decided to 
do this was because the time be- 
tween writing these articles and 
their publication (known as lead 
time) can be several months, and 
1 just couldn't wait to tell every- 
body the good news about Kids' 
Corner. 1 also wanted to get all 
those keyboards clicking out there, 
generating some good atticles and 
programs for you to read and try 
out. And it really worked^!' ve 
received some great articles and 
programs from kids in Commo- 
dore user groups, as you will see 
as you read further in this issue. 

The answers 1 received to my 
questionnaires have been a big 
help in planning this issue. 1 want 



to thank all of you who took the 
time and effort to fill them out and 
send them back. I also thank all 
the user groups that published the 
letter and the form in their news- 
letters. If any kids [or adults) that 
are reading this have not yet con- 
tacted the group in their area, 1 
would like to suggest that you do 
so. There is no better way to get 
information about using your 
Commodore computer. 

Now 1 would like to share with 
you some of the mail 1 have been 
getting. After reading some of 
these 1 think you will understand 
why the trip to the mailbox has 
become one of the high points 
in my day! 

From Andrew Cornwall: 
(Andy is the secretary of the Nova 
Scotia Commodore Computer 
Users Group) 

"One observation 1 have from 
watching my son and his friends 
working with his VIC (Dad has a 
PET) is that kids with less than 
high-school education can often 
program quite well but don't know 
what to program. Perhaps it would 
be interesting for these kids to 
learn of the science projects and 
other non-game applications that 
their contemporaries have under- 
taken. Good luck on your maga- 
zine articles." (I think the story 
about the iSE Fair winners might 
just fit the bill!) 

The next few comments are 
taken from some of the question- 
naires. In answer to the question: 



"What hints or suggestions do you 
have for other kids using Commo- 
dore computers", 1 heard from: 

\lnce Mora, 16, Albuquerque, 
New Mexico .... "Don't play games 
— do your own programming." 

Debbie Johnson, 12, Iowa — 
"Get the games so you don't 
have to worry about program- 
ming to play." 

Both these answers were pretty 
popular, reflecting, I think, that 
programmers and users are run- 
ning neck-and-neck in the general 
computer-owning population. This 
may sound like heresy, but it is 
becoming perfectly all right to use 
your computer to run all the great 
software that is now available. 
Let's face it, everyone isn't inter- 
ested in learning programming in 
order to use their home computer. 
After taking a programming class 
and many hours of instruction 
from my patient husband, much 
of my computing time is still spent 
word processing and teaching kids 
about computers. Let me know 
what YOU think about the great 
"Programmer versus User" debate! 

Then again, the same Debbie 
Johnson from Iowa had an answer 
that would seem to put her in the 
programmer's comer. In answer to 
"What would you like to do with 
your computer, but can't", Debbie 
answered: "Program a really fun 
(and hard) game"! (Her reason for 
not being able to do this was "I 
don't know how yet", so maybe 
it's just a matter of time!) 
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kids' corner 



Lisa Pomeranz, age 8.6, from 
New York replied to the same 
question. Lisa says: "1 would like 
to make the computer talk!" (You 
may be able to do that sooner 
than you think, Lisa. I say this with 
authority, because my Commo- 
dore 64 already does! There is an 
article elsewhere in this issue that 
will tell you about my family's ex- 
periences with Commodore's new 
speech module.) 

Robbie Bowlby, Eastern Pas- 
sage, Nova Scotia, would like 
to be able to write machine lan- 
guage. His suggestion to other 
users is one that we all might take 
heed of: "Don't leave discs in the 
drive when turning it on (or off)" 
(Robbie, there is a new book out 
that my husband Dan and 1 rec- 
ommend to anyone who is finding 
ML "impossible" or "incomprehen- 
sible". The name of it is Machine 



Language for Beginners and it 
was easy enough even for ME! 
See the review in this issue.) 

A surprisingly large number of 
parents and teachers, when asked 
what they would like their kids to 
be using the computer for (as op- 
posed to what they are using it 
for) answered that their kids are 
already using the computer exactly 
as they would wish. It's encourag- 
ing to me that kids and parents 
(and even teachers} agree on my 
favorite subject! 

One last item, that 1 just couldn't 
resist sharing with you. The follow- 
ing paragraph is an excerpt from 
the newsletter of the Commodore 
(Jsers Group of Wichita (Kansas), 
Inc. and was written by Walt 
Lounsbery, Editor and General 
Manager: 

"The children's section for 
PowerlPla\} Magazine is a great 



step forward in concept, and I 
think it deserves any support you 
can give it. I know that some other 
magazines have similar depart- 
ments, and there even used to 
be a computer magazine for kids 
published in Sedalia, Missouri. 
However I think that Ms. Byrne's 
approach is fresh, enthusiastic, 
and imaginative." 

I swear to you that I have never 
even MET this perceptive man, 
but he did more than just brighten 
my day with that paragraph. He 
(and the rest of my new computer 
correspondents) let me know that 
this section is something that peo- 
ple — kids AND parents — really 
want to read. And there was noth- 
ing in the world that I wanted to 
read more than that. _ C 
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CALL TOLL FREE: (800) 848-7548 
5650 Indian Mound Court 



Your sizable irivesiment in your computer should tie proiecied If you have 
to load and unload your computer every time you want to move H, you 
must consider the possible damage Computer Case Company has solved 
your computer proteclion problem. Once your equipment is salely inside 
tbe attache-style carrying case, it never has to be taken out again Simply 
remove the lid. connect the power, and operate For storage, disconnect 
the power, enclose your disks, v^orking papers, and manuals in the 
compartments provided, and attach the lid. Case closed. Judge for yoLrself 
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How to Submit Things 
to Kids' Comer 



What To Send 

Any Commodore Kid 
whose submission is 
published will receive 
the Commodore-made 
software product of their 
choice. Adults will be paid 
the normal rate per page 
that any other author gets 
from Commodore. So, we 
can all have fun talking 
about our favorite subject, 
show off some of the great 
programs and ideas I know 
are out there, and get paid 
for it in the bargain! 

Here are some sugges- 
tions on the kinds of stuff 
you might like to send in: 



From Kids 

Programs and articles by you 
on any computing subject. For 
instance, a really neat game you 
wrote just for fun, or a program 
you made to help with your 
schoolwork or your favorite 
hobby A review of one of Com- 
modore's new games or other 
Commodore software. After all, 
this is your place to sound off 
about your likes and dislikes. A 
story that you write yourself about 
computers, or some computer 
poetry, written by either you or 
your computer might be fun to try. 
Cartoons, drawings or unusual 
photos with computers in them are 
also good to send. 

From Grownups 

Programs and articles by par- 
ents, grandparents, or teachers 
who use Commodore computers 
with children, such as: 

a. Programs written for very 
young children (1-6). 

b. Articles about your child 
and her/his computer. 

c. Letters to the editor about 
children and computers. 

d. Reviews of software for 
children. 

e. Articles about Commo- 
dore computers being 
used in schools. 

f. Interesting or unusual 
pictures of kids and 
computers. 



How to Send Stuff 

Programs: Must be sent on 
disk or tape, clearly marked with 
computer type and your name, 
address, and PHONE NUMBER. 
If your program is for the VIC, 
mark the label with the amount of 
memory you had plugged in when 
you saved the program. Send a 
printout (listing) if you can, and 
BE SURE that your disk or tape is 
mailed in a PADDED protective 
envelope. Tapes should be in a 
mailing case, disks between two 
pieces of stiff cardboard. Just last 
week 1 found a broken, melted 
tape in my mailbox, mailed with- 
out protection in a regular en- 
velope. Protective envelopes are 
found at office supply stores for 
around 25 cents. They're worth it! 

Articles, Stories, Poems, 
etc.: Should be typed or com- 
puter printed, double spaced, 
each page numbered, and headed 
with the title and author's name, 
address, and phone number. 1 
can, if absolutely necessary, accept 
text that is neatly hand printed 
on every other line, each page 
numbered and headed as des- 
cribed above. 

Photographs: Color or black 
and white, preferably 35mm. 
Taped or otherwise attached to a 
stiff piece of paper or cardboard 
(but make sure they can be re- 
moved without damaging them). 
Label the paper with some type of 
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FIVE POWERFUL SOFTWARE 
DEVELOPMENT TOOLS 

Plus the Smthi0 J\\w Hook 
INSIDE Tlf E VIC 



THE BOOK 

A complete clear explanallon of machlns 
language, Assembly language, VIC 20 archl- 
lectursp graphics, Joysiick antf aound eftecl 
programming. Detailed step-by-slep guide to the 
use of the deveropment tools. Haw la combine 
BASIC and machine language, make auto-nlarl 
cartrfdgea, fnlerfaco with ttie lnT«mat ROM^ 
basod programs of BASIC and the Kernal. 
Sample programs lully explained. 



THE TOOLS 

Assembler/EdltOf^LoadflryOecodflr/Monltor 
FulMeatured Assembler allows use of labels, 
comments and arUhmelic e)(preSSiOns to create 
maohJnQ languagfl programs. Create, save, 
modify Assembly Isnguage programs wllti the 
Editor. Load and link machine language modules 
with the Loader. Decode mactilne language bach 
Into assembly language foi study or Input to Iho 
Editor. Single-step program e):ecullon with tHe 
Monitor Extended leaturoa combines Assembler/ 
Editor for maximum ease of use. 



ALL FOR $49.95 plus SZ.OO postage and handling standard version runs on 
any system with Oatasette (SK and up) Add 55.00 Tor disk version, S5.00 for extended (ealures 
(minimum 8K) Send check, M.O., VISA/MC (£2.00 SX.) or speciry C,0,D. (add S3. 00) lo: 

'P^^(^lfl\(f^lf) ^'^^ ^* 207, Cannon Fails, MN 55009 

>iA« // ■ ^==^ 507-263-4821 



m 



VJC-20 \\ A r^gJitrrtd TM of 
Corrmodorf Buiincn M^cHin^i Inc. 



TRAIN DISPATCHER 

Game for Commodore 64'" and VIC 20'" (Requires 16K memory) 

RtAUSlIC SIMUWIION OF A COMf'UIEH CONHTOLUU CIC OFflCt 

HOW QUICKty AND EFFICIENllY CAN VOU MANEUVER TRAINS OVER A 20 STATION. ISO MILE TERRITORY? 

BUILD YOUR OWN SKILLS FROM '■CUFi DISPATCHER" TO "IRAINMASIEr, 

FEATURES 

24 DISPLAYS including Train Stiet'ls. Block Permits. Teriilory Orewew, 20 Intsrlockinfis 
Fill CONTFiOl Throw switclies. cleat and cancel sisnals. loute and manetivci uo to 12 trains moving in botti 
diiec lions 
REAt TIME All displays continuously updated, including tiain locations. swilcFi posilions, SJ^ials. tilock 
peimits. and ciew lime. 
PERFORMANCE Updated and displayed continuously Irom cumulative speed at all trims 

VERSATILE Plays at 5 levels, from leisurely "ViSiWr" and "Cut) Dispatctiet" levels 10 Irantic 

'Trainmaster' 
AtjTHENTIC Crealed by designers ot CTC Systems tor operating railroads. 
TRAIN DISPATCHER was created as an action game, but it also provides a dramatic and realistic picture ol 
IdiC'lO'lile railroad opetations. 

As you devi!lop and apply your own stialefiies lor tjutcMy and sniootlily movinp, trains orer Itm lerritory. you 
mil increase youi apprecialron for actual railroad opeialions 

Commodore Gl and VIC 30 ati! riiKisliired rrademarks ol Cunuuwidri! Hii'jiic^ M.ichinfM,, Inc 




PURVIS SYSTEMS INCORPORATED 

470 Streets Ron Road Pillitiurv.Ji KA 15236 

Enclosed ts S24 95 tor Tram Dispatcher • %1 SO lor postage and 
handling NY. Rl. PA. WA. VA and CA residents add state sales tan. 

Ctiarfie In. D BfesterCard Carr) * 

D VISA !»p Dale 

CHECK QUE CHECK ONE 

n VIC 20 



DIARE 



DDtSC 



-SlalM. /ip . 



captioTi, the name(s) of the per- 
son(s) pictured, and the name, 
address, and phone number of 
the sender (School pictures are 
just fine.) 

Drawings: Black and white 
might be best; at least outline 
things in a dark color if you can. 
Make them big enough that de- 
tails will show if they have to be 
reduced. If you are sending a 
cartoon, print the captions in the 
balloons very carefully, or get 
someone who is really good at print- 
ing to do the words for you. Mail 
them using the same directions as 
for photographs. 

If you are sending a program, 
don't forget to include the di- 
rections! It's a good idea to have 
them right in the program if you 
can. Be sure to keep a copy of ev- 
erything you send. 1 might need 
to call you about it, and unfortu- 
nately, I can't send anything back. 
If you have already sent some- 
thing in and didn't see it in this 
issue, remember that we have to 
get PoLoer/P/ay ready for printing 
almost THREE months before you 
read it! If something you sent is 
going to be in the magazine, you 
will probably get a phone call from 
me before you see it in print so 
don't forget to include your AREA 
CODE and phone number. 

Even if you are sending a draw- 
ing, photo or program, write some- 
thing that tells a little bit about 
YOU. Don't forget to send a pic- 
ture of yourself! 

The address to send things to is; 

COMMODORE KIDS 
c/o BETSY BYRNE 
6212 KARLSON NE 
ALBUQUERQUE NM 87113 C 
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VIC 20 Drawing Contest! 



Poioer/P/ay's kids' section is having a contest! 
Not the programming contest that you might ex- 
pect from one of Commodore's magazines; instead, 
we're having a VIC 20 computer drawing contest 
that everyone can enter. Even if you don't know 
how to program or aren't reading too well yet, you 
can enter this contest. All you need is a VIC and a 
program called Alpha Draw — a drawing program 
for the VIC 20. 

Alpha Draw is included in Commodore's Sampler 
Six Pack, along with a music program, two adven- 
ture games and two action games. Using Alpha 
Draw you can draw on the screen with any of the 
numbers, letters, characters or right and left side 
Commodore graphic shapes, and save to tape the 
beautiful pictures that you make. 

But that's not all! The VIC 20 has a built-in feature 
called multi-color that will make ordinaty, everyday 
characters and shapes look very different. When 
you press the "J" key in Alpha Draw to put the VIC 
in multi-color mode, magic things begin to happen. 
An ordinary "X" can become a creepy-crawly 
spider, and the "<shifted> X" (or club sign, like 
the playing card suit) makes beautiful flowers, or 
blossoms on a tree or bush. 

There are shapes that look like bricks and others 
that look like jet planes and racing cars. Explore dif- 
ferent color (screen color makes a difference) and 
character combinations and make a brick building 
complete with doors, windows and a flag flying from 
the roof (a flag can be made from four characters, 
one that looks like a lot of stars, and a striped one 
repeated three times). You can use the reverse 
"Fi" key to make a drawing right out of the movie 
"TRON", The only limit to Alpha Draw pictures 
and designs is your imagination! 

After you make your picture with Alpha Draw, 



save it on a blank tape and send it to Commodore 
Kids. (A hint about saving: be sure to have your tape 
set up and the "play" and "record" buttons pressed 
before you press "S" to save your screen. ) Follow 
the directions you will find elsewhere in the kids' 
section on how to send things. Good luck! C 



Contest Rules 

1 . There will be a prize awarded for the best pic- 
ture in three age groups: 

Group A: age 7 and under 
Group B: age 8 to 11 
Group C; age 12 to 18 

2. You may enter as many times as you like, 
but each tape must have only ONE picture on 
each side. 

3. Every tape label must be clearly marked with 
the NAME, AGE, ADDRESS, and AREA CODE 
and PHONE NUMBER of the entrant, and the 
title of the entry. Repeat the same information on 
a separate sheet of paper that you enclose WITH 
the tape. If you like, let us know a little bit about 
yourself, and send a picture of YOU. 

4. PRIZES: The winner in each age group will 
receive the Commodore VIC 20 program of your 
choice and a year's subscription to PowerlPlay. 

5. Winners will be announced, with a picture 
of the winning entry in the Spring 1984 issue of 
Power jPiay. 

6. All entries become the property of Power IPla^^ 
magazine, and none can be returned. By entering 
the contest, you give your permission to Power! 
Phi; to print a screen shot of your picture in the 
magazine. 
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Multi-Draw 



by Pete LobI 



Although Pete Lobl is a successful busi- 
nessman and president of the Long Island 
VIC Enthusiasts (LIVE) user group, he's 
only 15. Watch for a story on Pete in the 
Winter issue. 



When the Commodore 64 was introduced, it 
drew comments from knowledgeable computer ex- 
perts that shook the entire industry. By the time that 
you read this, there will be tots of quality programs 
available for the 64. But as I write, there isn't much 
out there in the way of 64 software, so my attitude 
is: why wait if I can do it myself? You can too, only 
don't be discouraged if everything doesn't make 
sense at first; in time it will all drop into place. This 
article and the accompanying program focus on 
what will probably be two of the most exploited hid- 
den powers of the Commodore 54: multi-color bit 
mapping and split screens using both the intenrupts 
and the raster scan and enable registers. 



Multi-draw is a little {not that little!) pro- 
gram that I wrote when there wasn't a 
commercially available drawing program. 

(As of this writing there are some very 
well done programs on the market.) In any 
event, my program allows you to draw in 
16 colors on a color page (located at 8192 
decimal, $2000 hex). It uses keys or joy- 
stick to move the crosshair or brush. 



MuIti-Color Plotting 

Multi-color bit-map mode allows you to display 
four different colors in an eight dot by eight dot area 
of the screen. In normal or standard bit-map mode 
the horizontal resolution is 320 dots by 200 dots. In 
multi-color bit mapping horizontal resolution is de- 
creased to 160 dots per line (or 160 by 200); but, 
because of the greater flexibility in color combina- 
tions, the loss in resolution is not a severe problem 
or handicap. 

Bit mapping uses an 8K section of memory to 
store each dot of the screen display (320 by 200 
equals 64,000 dots). Multi-color also needs an 
8K section of memory. You select colors in this 
mode from four different locations. The following 
chart explains: 





BIT 


Where Color Comes 


COLOR# 


PAIR 


From (Decimal, Hex) 





00 


Background Color (53281, 
$D021) 


1 


01 


Low four bits of screen RAM 
(1024-2048, $0400-$0700) 


2 


10 


Upper four bits screen RAM 
(1024-204S,$0400-$0700) 


2 


11 


Color Memory (55296-56296, 
$D800-$DA00) 



In hi-res bit mapping, in order to plot a point, 
you must first find the correct byte in your 8K map 
and turn the right bit ON by storing a one there. In 
multi-color mode things get more complex. To re- 
ceive the different colors, the dots are now replaced 
by 12 -bit-wide dots. With two bits across, the dot 
can have one of four possible combinations, hence 
the four different colors. Because the dots are now 
twice as wide, the decrease in resolution should be 
more understandable. This excellent color output 
explains why multi-color mode has been the choice 
of machine language programmers when using hi- 
res graphics. The reason I say machine language is 
because plotting or drawing in hi-res is much too 
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slow if done completely from BASIC. The combina- 
tion of both BASIC and machine language can make 
a powerful program for games or plotting. As a mat- 
ter of fact that's exactly what Multi-Draw is; a hybrid 
machine code/ BASIC program. 

Multi-Draw is a little (not that little!) program that 
I wrote when there wasn't a commercially available 
drawing program. (As of this writing there are some 
very well done programs on the market.) In any 
event, my program allows you to draw in 16 colors 
on a color page (located at 8192 decimal, $2000 
hex). It uses keys or joystick to move the cross- 
hair or brush. 

There are several machine code routines POKEd 
into memory from BASIC using READ and DATA 
statements. They are called with a SYS command 
while the program is running. Following is a list of 
the routines I have used, and also a list of com- 
mands for the program. You can receive the dis- 
assembly of the routines from me by sending a 
self-addressed stamped letter to the address at the 
end of this article. 



ML Routines and Their Locations in Memory 



CALL PLOT 
PLOT 3 (plot in color 3) 
PLOT 2 (plot in color 2) 
PLOTl (plot in color 1) 
PLOT (erase) 
CLR SCREEN 
REVERSE SCREEN 
FILL A CERTAIN COLOR # 
READ JOYSTICK 
SET UP INTERRUPT 
RASTER SCAN INTERRUPT 
(split-screen) 



864- 
2048 
2304 
2560 
2816 
3072 
3200 
3328 
3584 
3712 
3840 



Sprite data is mixed in with these routines above 
their ending locations. There is also a self-modifying 
SAVE routine in machine code at 5376, The cas- 
sette buffer was moved to 4096 ($1000) because 
my routines exist in the cassette buffer. Therefore 
loads or saves to tape would wipe them out. This is 
simply done by changing pointers at 178-179 deci- 



mal. The buffer can be moved anywhere in RAM, 
and allows us to make auto-mn tape loads. 

List of Multi-Draw Commands 

< -> Toggles between joystick/key 

</> Toggles fast/ slow crosshair 

<P> Picks up pen (move mode) or puts it 

down (draw mode) 

< ,*> Inc/dec text background color 

< R> Reverses screen 

< Q> Changes cursor increment between 

points (enter 1-9 for input) 

< shift> Decrements cursor color 
<F1> Color 1 

<F3> Color 2 

<F5> Colors 

<:,D> Inc/dec current drawing color 

<F7/F8> Inc/dec background 

<HOME> Clears screen 

<+> Toggles crosshair on/off 

< F> Fills a specified color # (1,2,3) with a 

color value (0-15) 

< E> Erase mode (color 0) (use F1,F3,F5 to 

go back to normal) 

Program Listing 

****IMPORTANT*** Before running the program 
you must enter a line directly into your computer 
from the immediate mode; 



POKE 44, 64: POKE 44*256,8: NEW 
<re turn > 



Do this before loading or running this program. 
All it does is move BASIC up in memory to allow 
room for the machine code and hi-res screen. The 
program won't work without it, so don't forget 

Program Notes 

SAVE & LOAD; The save and load routine I use 
is a bit unorthodox. I save three files onto tape/disk 
for each screen: 1 for RAM, 1 for bit map, 1 for color 
RAM. After entering the file name in the save/load 
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subroutines, the program searches for three pro- 
grams on that device, even though you entered only 
one file name. What happened was that I added a 1, 
then 2, then 3 as the rightmost character during the 
save. This makes the save somewhat faster, taking 
only about 20 seconds to load a screen from disk. 
(Tape of course will be longer.) Don't add the num- 
bers when asked for a file name; the program does 
it for you. The only penalty that occurs because of 
this is that the filename can only be 15 characters 
instead of the normal 16. 

Raster Scan: Multi-draw has a window at the 
bottom of the screen in which normal characters can 
be displayed. This effect is possible because of the 



raster-scan interrupt, a complex but powerful ability 
of the 64. The location that controls where the win- 
dow will start is at 3846. Break out of the program 
by pressing the stop key, and try POKing different 
values into that location (0-255), You will notice that 
the window will get larger with smaller numbers 
POKEd in. The technique that allows this will also 
make it possible to have more than eight sprites on 
the screen at once or multi-color and standard color 
at the same time. You could even bit-map the entire 
screen with sprites!! C 

To gel a cop\; of Multi-Draw on disk, send $5.00 and a stomped. 
self-addressed rehim mailer to Pele at: 31 Maple Dtiue, Lindenhursf. 
NViI757. 



Multi-Draw 



REM MANY THANKS TO MRS. BYRNE WHO GAVE ME A CHANCE TO W 
RITE THIS. 

1 REM MANY REGARDS ALSO TO MR. JIM BUTTERFIELD WHO FIXED 
MY SPLIT-SCREEN. 

2 R EM *************************************************** 
*********************** 

3 REM MAKE SURE YOU RAISED BASIC BY TYPING POKE44,64 
:POKE64*256,0:NEW 

4 REM BEFORE ENTERING OR LOADING THIS t t ***************** 

'k'kit'kitit'kit'kie'k'k'kie'k'k'kieif'kieit'k 

5 ON A GOTO 981,982,983 

6 IF PEEK(44)<>64 THEN 
[SPACE] NOT [SPACEjBEEN 
! 1 !":LIST 2-4 

7 POKE 3846,226:POKE 53 
:POKE 179,16:PRINT" [L 

10 PRINT" [CLEAR, D0WN3,S 

15 PRINT" [DOWN, SPACE13] 

16 PRINT" [DOWN, SPACE12] 
20 PRINT" [DOWNS] PLEASE [ 

[SPACE] MACHINE [SPACE 
30 DIM C$(15) ,CHI (11) :P 

:P$=P$+" [DOWN] " :NEXT 
40 FOR 1=1 TO 10: READ X 
50 C1=6:C2=2:C3=1:CC=1 

:MB=15:X=64:Y=88:CE= 



PRINT" [CLEAR, DOWN]BASIC [SPACE] HAS 
[SPACE] MOVED. [SPACE] RESTART [SPACE] 

281,6:P0KE 53280 , 14 : POKE 178,0 

BLUE] " 

PACE13]MULTI -DRAW [SPACE] 64" 
BY: [SPACE] PETE [SPACE] LOBL" 
VERSION [SPACE] 5/31/83" 
SPACE]WAIT, [SPACE] READING [SPACE] IN 
]CODE..." 

$=" [HOME] ":FOR 1=1 TO 22 
:FOR 1=0 TO I5:READ C$(I):NEXT 
%{I) ,YI(I) :NEXT 

K$=" JOY" :K^0 : P=l : PE$="DOW" : TB=14 
6 
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60 
65 
6 7 

68 

69 
70 
80 
82 
84 
86 
88 
90 
92 

93 

94 

96 

98 

99 

100 

105 

107 

108 

109 

110 

111 

112 

113 

120 

121 

122 

123 

124 

125 

126 

127 

128 



PE=1:MV=1:FS$="FAS":FS=1:PL=864;CL=3072:RV=3 200:FL=3328 

:RJ^3584:IN=3712 

POKE 2040,35:POKE 2041,39:POKE 2042,43:POKE 2043,47 

:POKE 53277, 15:P0KS 53271,4 

53291:POKE I , 1 :NEXT :POKE 53264 , 7 :CX=828 



FOR 1=53287 TO 
:CY=829 

FOR 1=53248 TO 
POKE 53251,128 
GOSUB 1000 
FOR 1=1 TO 
FOR 1=0 TO 
FOR 



FOR 
FOR 



1 = 
1 = 
1 = 



TO 
TO 
TO 



53252 STEP 2 : POKE I,32:NEXT 
POKE 53249, 104:POKE 53253,170 
READ IN ML 

POKE 2240+1, A:NEXT:POKE 2240,99 
2496+1, A:NEXT 
2752+1, A:NEXT 
3008+1, A:NEXT 
4608+1, A:NEXT 



A; 
A; 

A: 
A: 

A; 



POKE 
POKE 
POKE 
POKE 



REM 
63: HEAD 
63: READ 
63: READ 
63: READ 
35:READ 
YC=53255:XC=53254:X1=6:Y1=43 
POKE XC,X*2+X1:P0KE YC,Y+Y1:SYS 
iPOKE 56334, 0:SYS CL 

POKE 689,TB:POKE 704,MB:POKE 53269 , 15 : PRINT 
iGOSUB 990:GOSUB 840:POKE 53280, CI 
POKE 848,CC:P0KE 849,C1:P0KE 850,C2:POKE 851, C3 
:POKE 53269,7 
FOR 1=0 TO 175:P0KE CY,I 
:SYS PL:NEXT 

FOR 1=0 TO 124:POKE CX,I 
:P0KE CY,175:SYS PL:NEXT 
POKE 53269, 15:P0KE 198 , :H=124 :HY=175 

IF K THEN 120 

POKE 650,.:SYS RJ : A=PEEK (679) : IF A=.THEN 120 

Q=X% (A) *MV+X:R=Y%(A}*MV+Y:IF Q>H THEN Q=Q-H-1:G0T0 

IF Q<.THEN Q=H+Q+1 

IF R>HY THEN R=R-HY-1: GOTO 111 

IF R<.THEN R=HY+R+1 

X=Q:Y=R:POKE CX,X:POKE CY,Y 

IF FS=0 THEN GOSUB 850 

POKE XC,X*2+X1:P0KE YC,Y+Y1:G0T0 100 

GET A$:IF A$=""THEN 100 

IF K=0 THEN 138 

POKE 650,128:IF A$<>"I"THEN 

A=2:G0TO 107 

IF A$<>"D"THEN 126 

A=8:G0T0 107 

IF A$<>"J"THEN 128 

A=6:G0T0 107 

IF A$<>"N"THEN 130 



IN:POKE 53274,241 

P$" [BLUE]" 

POKE CX,0:SYS PL:POKE CX,124 
POKE CY,0:SYS PL:POKE CX,I 

lEN 120 

109 

IF PE THEN SYS PL 



124 
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129 


A=10:GOTO 107 


130 


IF A$<>"M"THEN 132 


131 


A=4:G0T0 107 


132 


IF A$<>","THEN 134 


133 


A=7:G0T0 107 


134 


IF A$<>"K"THEN 136 


135 


A=3:G0T0 107 


136 


IF A$<>"0"THEN 138 


137 


A=5:G0T0 107 


138 


POKE 198,0;IF A$<>"-"THEN 141 


139 


IF K THEN K=0:K$="JOY":GOSUB 990:GOSUB 840:GOTO 100 


140 


K=1:K$="KEY":G0SUB 990:GOSUB 840:GOTO 100 


141 


IF A$<>"E"THEN 143 


142 


CC=0:POKE 848,0:GOSUB 990:GOSUB 840:GOTO 100 


143 


IF A$="R"THEN SYS RVrGOTO 100 


145 


IF A$=" [F7]"THEN A=PEEK (704) : a= (A+1) *- (A<15) 




:POKE 704,A:GOTO 100 


146 


IF A$=" [F8] "THEN A=PEEK (704) : A=A-1 




:A=A+{ (SGN{A)=-1)*{-16) ) :POKE 704,A:GOTO 100 


147 


IF A$="""THEN A=PEEK(689) :A=(A+1) *-(A<15) :POKE 689, A 




:GOT0 100 


148 


IF A$="*"THEN A=PEEK(689) :A=A-1 




:A=A+( (SGN(A)=-1)*(-16) ) :POKE 689,A:GOTO 100 


149 


IF A$="/"THEN A=PEEK(53290) :A={A+1)*-(A<255) 




:P0KE 53290, A:G0T0 100 


150 


IF A$="?"THEN A=PEEK{53290) :A=A-1 




:A=A+( (SGN(A)=-l)*(-256) ) :POKE 53290, A:GOTO 100 


153 


IF A$<>" [POUND] "THEN 156 


154 


IF FS THEN FS=0:FS$="SLO":GOTO 180 


155 


FS=1:FS$="FAS":G0T0 180 


156 


IF A$<>"+"THEN 159 


157 


IF PEEK(53269)=15 THEN POKE 53269,7:GOTO 100 


158 


POKE 53269, 15:G0T0 100 


159 


IF A$<>"P"THEN 162 


160 


IF PE THEN PE=0:PE$="UP[SPACE]":GOSUB 990:GOSUB 840 




:GOTO 100 


161 


PE=1:PE$="D0W":G0SUB 990:GOSUB 840: GOTO 100 


162 


IF A$<>" [HOME] "THEN 164 


163 


SYS CL:GOSUB 990:GOSUB 840:GOTO 90 


164 


IF A$<>"L"THEN 166 


165 


GOSUB 950:GOSUB 990:GOSUB 840:GOTO 100 


166 


IF A$<>"S"THEN 168 


167 


GOSUB 900:GOSUB 990:PRINT P$" [D0WN2, UP2] " :GOSUB 840 




:GOTO 100 
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168 IF a$<>"M"THEN 170 

169 GOSUB 182:POKE 53269 , :GOSUB 860:GOSUB 870 
:POKE 3846,226:POKE 53269 , 15 :GOTO 184 

170 IF A$<>"X"THEN 200 

171 POKE 53269, 0:GOSUB 860 : PRINT" [CLEAR, DOWN] I [SPACE] HOPE 
[SPACE] YOU [SPACE] HAD [SPACE] FUN , [SPACE] SEE [SPACE] YA ' 
[SPACE] NEXT [SPACE] TIME" 

172 PRINT" [DOWN] OH, [SPACE] WHY [SPACE] DON ' T [SPACE] YOU [SPACE] 
EXPERIMENT [SPACE]WITH" 

173 PRINT" [DOWN] LOCATION [SPACE] 3846. [SPACE] POKE [SPACE] 
DIFFERENT [SPACE] NUMBERS" 

174 PRINT" [DOWN] THERE. [SPACE2] YOU [SPACE] MAY [SPACE] NOT 
[SPACE] KNOW[SPACE] IT, [SPACE] BUT [SPACE] YOU ' LL" 

175 PRINT" [DOWN] BE [SPACE] CONTROLLING [SPACE] THE [SPACE] 
RASTER [SPACE] INTERRUPT ! ! ! " 

176 PRINT" [D0WN3] TILL [SPACE] NEXT [SPACE] TIME, [SPACE] HAVE 
[SPACE] FUN ":END 

180 GOSUB 990:GOSUB 840:GOTO 100 

182 PRINT P$"[SPACE,RVS,SPACE12] PLEASE [SPACE] WAIT [SPACE15, 
RVOFF] "P$ 

183 A=5376:B=1024:C=2023:FOR I=B TO C:POKE A, PEEK { I ) : A=A+1 
:NEXT: RETURN 

184 A=5376:B=1024:C=2023:FOR I=B TO C:POKE I , PEEK {A) : A=A+1 
:NEXT:GOSUB 840:GOTO 100 

199 REM COMMANDS CONTINUED **** 

200 IF A$<>"Q"THEN 204 

201 GOSUB 990: PRINT PS : INPUT" [RVS] NEW [SPACE] INCREMENT 

[SPACE] ";A$:A=INT{VAL(A$) ) :IF A<1 THEN A=l 

202 IF A>9 THEN A=9 

203 MV=A:GOSUB 990:GOSUB 840:GOTO 100 

204 IF A$<>":"THEN 209 

205 A=CE:A=(A+1)*-(A<15) :POKE 848+CC, A :GOSUB 990:CE=A 
:POKE 53280, CE 

206 IF CC=2 THEN C2=A:G0SUB 840:GOTO 100 

207 IF CC=3 THEN C3=A:G0SUB 840:GOTO 100 

208 C1=A:G0SUB 840:GOTO 100 

209 IF A$<>"D"THEN 214 

210 A=CE:A=A-1:A=A+{ (SGN(A)=-1)*(-16) ) :GOSUB 990:CE=A 
:POKE 53280, CE 

211 POKE 848+CC, A: IF CC=2 THEN C2=A:G0SUB 840:GOTO 100 

212 IF CC=3 THEN C3=A:G0SUB 840:GOTO 100 

213 C1=A:G0SUB 840:GOTO 100 

214 IF A$<>" [Fl] "THEN 216 
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215 

216 
217 

218 
219 

220 

221 

222 

223 
224 
840 
841 



842 
843 



844 
845 
850 
851 

860 
865 
867 

870 
872 
874 
876 

878 

880 
881 

882 



POKE 848,1:CE=C1:CC=1:P0KE 53280 ,CE: GOSUB 990 

:GOSUB 840:GOTO 100 

IF A$<>" [F3] "THEN 218 

POKE 848,2:CE=C2:CC = 2:POKE 53280 ,CE :GOSUB 990 

:GOSUB 840:GOTO 100 

IF A$<>" [F5]"THEN 220 

POKE 848,3:CE=C3:CC=3:POKE 53280 ,CE iGOSUB 990 

:GOSUB 840:GOTO 100 

IF A$<>"F"THEN 100 

GOSUB 990:PRINT P$ : INPUT"COLOR [SPACE] # [SPACE] "; A$ 

:A=Ib]T(VAL(A$) ) :IF A<1 OR A>3 THEN A=l 

POKE 674,A:GOSUB 990:PRINT P$ : INPUT"COLOR [SPACE] VALUE 

[SPACE] "; A$:A= INT CVAL{A$) ) 

IF A<0 OR A>15 THEN A=0 

POKE 675,A:SYS FL:GOSUB 990:GOSUB 840:GOTO 100 

REM PRINT BOTTOM 3 LINES ***** 

GOSUB 990:PRINT P$" [RVS ] bJUM [RVOFF] "STR$ (CC) " [SPACE, 

RVS ] COL [RVOFF, SPACE] "C$ (CE) " [SPACE, RVS] "K$" [RVOFF, 

SPACE, RVS] INC [RVOFF] "STR$(MV) ; 

PRINT" [SPACE,RVS] PEN [RVOFF, SPACE] "PE$" [SPACE, RVS] SPE 

[RVOFF, SPACE] "FS$ 

PRINT" [RVS] COLl (RVOFF, SPACE] "C$ (CI) " [SPACE , RVS] C0L2 

[RVOFF, SPACE] "C$(C2) " [SPACE, RVS ] C0L3 [RVOFF, SPACE] 

"C$ (C3) " [SPACE, RVS] X [RVOFF] "X; 

PRINT" [RVS] Y [RVOFF] "Y 

RETURN 

REM PRINT NEW X AND Y ***** 

PRINT P$" [DOWN] "TAB (27) " [RVS ] X [RVOFF ,SPACE10 ,LEFT10] 

"X" [RVS] Y [RVOFF] "Y: RETURN 

REM MOVE RASTER UP ******* 

POKE 3846,0:RETURN 

LDC.3846 = LOCATI ON TO START PUTTING THE N OR MAL 

TEXT AT (Y CO OR DINATE) 
REM LIST COMMANDS ***** 

PRINT" [CLEAR, SPACE2] U [SPACE2] I [SPACE2]0" 
PRINT" [SPACE3,SHFT M, SPACE, SHFT -, SPACE, SHFT N]" 
PRINT" [SPACE2] J [SHIFT *2,SHFT +, SHIFT *2]K[SPACE3] 
KEYS [SPACE] TO [SPACE] MOVE [SPACE] CURSOR" 

PRINT" [SPACE3, SHFT N, SPACE, SHFT -, SPACE, SHFT M,SPACE4] 
( [SPACE] OR [SPACE] USE [SPACE] JOYSTICK [SPACE] ) " 
PRINT" [SPACE2]N[SPACE2]M[SPACE2] ," 

PRINT" [DOWN] P [SPACE] = [SPACE] TOGGLES [SPACE] BETWEEN 
[SPACE] PEN [SPACE] UP [SPACE] AND [SPACE] PEN [SPACE]DOWN" 
PRINT"Fl,F3,F5 [SPACE] = [SPACE] CHANGE [SPACE] TO [SPACE] 
COLORS [SPACE] 1,2,3" 
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883 PRINT"; [SPACE] = [SPACE] INCREMENT [SPACE] CURRENT [SPACE] 
COLOR" 

884 PRINT"D [SPACE] = [SPACE] DECREMENT [SPACE] CURRENT [SPACE] 
COLOR" 

885 PRINT"- [SPACE] = [SPACE] TOGGLES [SPACE] JOYSTICK/KEY 
[SPACE] MOVEMENT" 

886 PRINT"S [SPACE] = [SPACE] SAVE [SPACE] SCREEN" 

887 PRINT"L [SPACE] = [SPACE] LOAD [SPACE] SCREEN" 

888 PRINT"F7,F8 [SPACE] = [SPACE] INC/DEC [SPACE] HI-RES [SPACE] 
BACKGROUND [SPACE] COLOR" 

889 PRINT"E [SPACE] = [SPACE] CHANGE [SPACE] TO [SPACE] ERASE 
[SPACE]MODE [SPACE] (COLOR [SPACE] 0) " 

890 PRINT" [HOME] [SPACE] = [SPACE] CLEARS [SPACE] HI-RES [SPACE] 
SCREEN" 

891 PRINT"+ [SPACE] = [SPACE ] TOGGLES [SPACE] CURSOR [SPACE] 
ON/OFF" 

892 PRINT"F[SPACE] =[SPACE]FILLS [SPACE] SCREEN [SPACE] WITH 
[SPACE] A [SPACE] COLOR" 

893 PRINT"R [SPACE] = [SPACE] REVERSES [SPACE] SCREEN" 

894 PRINT"Q [SPACE] = [SPACE] CHANGE [SPACE] CURSOR [SPACE] 
INCREMENT" 

895 PRINT" [POUND, SPACE] = [SPACE] TOGGLE [SPACE] FAST/SLOW 
[SPACE] CURSOR [SPACE] MOVEMENT" 

896 PRINT"/, [SHIFT]/ [SPACE] = [SPACE] INC/DEC [SPACE] CURSOR 
[SPACE] COLOR" 

897 PRINT"",* [SPACE] = [SPACE] INC/DEC [SPACE] TEXT [SPACE] 
BACKGROUND" 

898 PRINT"X [SPACE] = [SPACE] EXITS [SPACE] PROGRAM" 

8 99 PRINT" [RVS] HIT [SPACE] SPACE [SPACE] BAR [SPACE] TO [SPACE] 
RETURN [RVOFF,HOME] " tWAIT 197, 32 , : RETURN 

900 REM SAVE SUB****** 

902 NA$="":GOSUB 990 

905 PRINT P$; : INPUT" [DOWN] NAME [SPACE] OF [SPACE] SCREEN 
[SPACE4,LEFT3] "rNA$ 

910 PRINT P$; : INPUT" [DOWN] TAPE [SPACE] OR [SPACE] DISK [SPACE] 
(T/D) [SPACE9, LEFTS] ";DV$ 

915 IF NA$=""AND DV$="D"THEN RETURN 

920 IF LEN{NA$)>15 THEN RETURN 

921 GOSUB 990 

922 PRINT P$" [SPACE, RVS, SPACE12]PLEASE[SPACE]WAIT[SPACE15, 
RVOFF]"P$ 

925 POKE 3846,0: IF DV$="T"THEN D=1:G0T0 927 

926 D = 8 

927 POKE 4611,D:POKE 4618 ,LEN {NA$) +1 : A=l : NA$=NA$+"1" 
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928 PRINT P$;:FOR 1=1 TO LEN (NA$) : POKE 4863+1, 
ASC(MID$(NA$,I,1) ) :NEXT 

929 IF A=l THEN POKE 4627,4:POKE 4631,0:POKE 4639,7 
:POKE 4637,127 

931 IF A=2 THEN POKE 4627,32:POKE 4631,0:POKE 4639,62 

:P0KE 4637,0 
933 IF A=3 THEN POKE 4627 , 216 : POKE 4631,0:POKE 4639,219 

:POKE 4637,127 
935 SYS 4608:NA$=LEFT$(NA$,LEN(NA$)-I) 
937 A=A+1:IF A=2 THEN NA$=NA$+" 2" :GOTO 928 
939 IF A=3 THEN NA$=NA$+" 3" :GOTO 928 
941 GOSUB 990:PRINT" [HOME] " :POKE 3846 , 226 : POKE 56334,0 

: RETURN 
950 REM LOAD SUB****** 
952 NA$="":GOSUB 990 
955 PRINT P$; : INPUT" [DOWN] NAME [SPACE] OF [SPACE] SCREEN 

[SPACE4,LEFT3] ";NA$ 
960 PRINT P$; : INPUT" [DOWN] TAPE [SPACE] OR [SPACE] DISK [SPACE] 

{T/D) [SPACE9, LEFTS] ";DV$ 
965 IF NA$=""AND DV$="D"THEN RETURN 
970 IF LEN(NA$)>15 THEN RETURN 
972 GOSUB 990 

975 PRINT P$" [D0WN2, SPACE, RVS,SPACE111 PLEASE [SPACE] WAIT 
[SPACE16,RV0FF] "P$; 

976 POKE 3846, 0:IF LEFT$ (DV$ , 1) ="T"THEN D=1:G0T0 980 
97 7 D=8 

980 PRINT P$"[UP]"; :NA$=NA$+"1":A=1:L0AD NA$,D,1 

981 PRINT P$" [UP] "; :A=A+1;NA$=LEFT$(NA$,LEN (NA$) -1) 
:NA$=NA$+"2":L0AD NA$,D,1 

982 PRINT P$" [UP]";:A=A+1:NA$=LEFT${NA$,LEN(NA$)-1) 
:NA$=NA$+"3":L0AD NA$,D,1 

983 POKE 3846,226:P0KE 56334 , :G0SUB 990:GOSUB 840 
:GOTO 100 

990 REM CLEAR TEXT ***** 

992 FOR 1=1904 TO 2023:POKE I , 32: NEXT: RETURN 

1000 FOR 1=1 TO 11:READ CH%(I):NEXT 

1010 B=1:T=0 

1020 READ A$:TE=VAL(A$) :IF A$="E"THEN 1040 

1025 IF A$="F"THEN 1050 

1030 T=T+TE:GOTO 1020 

1040 IF T=CH%(B)THEN B=B+1:T=0:GOTO 1020 

1045 PRINT" [DOWN] ERROR [SPACE] IN [SPACE] DATA [SPACE] BLOCK"B 

:END 
1050 IF T=CH%(B)THEN 1060 
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1055 PRINT" [DOWN] ERROR [SPACE] IN [SPACE] DATA [SPACE] BLOCK"B 

:END 
1060 PRINT" [DOWN] DATA [SPACE] CORRECT, [SPACE] NOW [SPACE] 

ENTERING..." 
1065 RESTORE:FOR 1=1 TO 47:READ A$:NEXT 
1070 A=864:B=953:GOSUB 1200 : A=2048 :B=2200 :GOSUB 1200 

:A=2304:B=2468:GOSUB 1200 
1080 A=2560:B=2728:GOSUB 1200 : A=2816 :B=2932 :GOSUB 1200 

:A=3072:B=3174:GOSUB 1200 
1090 A=3200:B=3237:GOSUB 1200 : A=3328 :B=3465: GOSUB 1200 

:A=3584:B=3635:GOSUB 1200 
1100 A=3712:B=3746:GOSUB 1200 : A=3840 :B=3920 :GOSUB 1200 
1150 PRINT" [DOWN] DATA [SPACE] ENTERED [SPACE] 1 ! !":RETURN 
1200 FOR I=A TO B:READ T : POKE I ,T :NEXT :READ A$:RETURN 

2999 REM COLOR TRANSLATE DATA ***** 

3000 DATA BLK,WHT,RED,CYN,PUR,GRN,BLU,YEL,ORG,BRN,LRD,DGR, 
MGR,LGN,LBL,LGR 

3009 REM JOYSTICK ARRAY DATA ****** 

3010 DATA,,, -1,1,,, 1,1, -1,-1,, 1,1, -1,-1,,, -1,1 
5900 REM CHECKSUMS ***** 

5910 DATA 10078,18217,19331,19145,13292,10587,4275,12661, 

4922,3396,9730 
6000 REM BLOCK 1 ******* 

6005 DATA 14,60,3,173,66,3,201,1,240,19,162,0,189,170,3, 
157,66,3 

6010 DATA 189,178,3,157,84,3,232,224,8,208,239,160,0,132, 
249,169,32 

6020 DATA 133,250,173,80,3,240,20,201,3,240,19,132,253, 
162,4,134,254 

6030 DATA 201,1,240,3,76,0,9,76,0,10,76,0,11,132,251,169, 

216 

6040 DATA 133,252,76,0,8,1,2,4,8,16,32,64,128,254,253,251, 

247 
6050 DATA 239 , 223 , 191, 127 ,E 
6060 REM BLOCK 2 ******* 
6065 DATA 173,60,3,74,74,74,141,62,3,173,61,3,74,74,74, 

141,63,3 
6070 DATA 173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3, 

169 
6080 DATA 7,56,237,65,3,141,65,3,174,63,3,24,240,16,230, 

250,165 
6090 DATA 249,105,64,133,249,144,3,230,250,24,202,208,240, 

174,62,3,24 
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DATA 14,165,24 9,105,8,133,249,14 4,3,230,250,24,202, 

208,242,165,249 

DATA 109,64,3,133,249,144,3,230,250,24,174,65,3,160, 

0,189,66 
6120 DATA 3,17,249,145,249,202,189,66,3,17,249,145,249, 

174,63,3,24 
6130 DATA 240,14,165,251,105,40,133,251,144,3,230,252,24, 

202,208,242,165 
6140 DATA 251,109,62,3,133,251,144,2,230,252,173,83,3,145, 

251, 96, E 
6150 REM BLOCK 3 ******* 
6155 DATA 173,60,3,74,74,74,141,62,3,173,61,3,74,74,74, 

141,63,3 
6160 DATA 173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3, 

169 
6170 DATA 7,56,237,65,3,141,65,3,174,63,3,24,240,16,230, 

250,165 
6180 DATA 249,105,64,133,249,144,3,230,250,24,202,208,240, 

174,62,3,240 
6190 DATA 14,165,249,105,8,133,249,144,3,230,250,24,202, 

208,242,165,249 
6200 DATA 109,64,3,133,249,144,3,230,250,24,174,65,3,160, 

0,189,66 
6210 DATA 3,17,249,145,249,202,189,84,3,49,249,145,249, 

174,63,3,24 
6220 DATA 240,14,165,253,105,40,133,253,144,3,230,254,24, 

707 208 242 165 
6230 DATA 253,109,62,3,133,253,144,2,230,254,173,82,3,41, 

15,141,62 
6240 DATA 3 , 177 , 253, 41 , 240 , 13, 62 , 3, 145 , 253, 96 , E 
6250 REM BLOCK 4 ******* 
6255 DATA 173,60,3,74,74,74,141,62,3,173,61,3,74,74,74, 

141,63,3 
6260 DATA 173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3, 

169 
6270 DATA 7,56,237,65,3,141,65,3,174,63,3,24,240,16,230, 

250,165 
6280 DATA 249,105,64,133,249,144,3,230,250,24,202,208,240, 

174,62,3,240 
6290 DATA 14,165,249,105,8,133,249,144,3,230,250,24,202, 

208,242,165,249 
6300 DATA 109,64,3,133,249,144,3,230,250,24,174,65,3,160, 

0,189,84 
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6310 DATA 3,49,249,145,249,202,189,66,3,17,249,145,249, 
174,63,3,24 

6320 DATA 240,14,165,253,105,40,133,253,144,3,230,254,24, 
202,208,242,165 

6330 DATA 253,109,62,3,133,253,144,2,230,254,173,81,3,41, 
15,10,10 

6340 DATA 10,10,141,62,3,177,253,41,15,13,62,3,145,253,96, 

E 
6350 REM BLOCK 5 ******* 

6355 DATA 173,60,3,74,74,74,141,62,3,173,61,3,74,74,74, 
141,63,3 

6360 DATA 173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3, 
169 

6370 DATA 7,56,237,65,3,141,65,3,174,63,3,24,240,16,230, 
250,165 

6380 DATA 249,105,64,133,249,144,3,230,250,24,202,208,240, 
174,62,3,240 

6390 DATA 14,165,249,105,8,133,249,144,3,230,250,24,202, 
208,242,165,249 

6400 DATA 109,64,3,133,249,144,3,230,250,24,174,65,3,160, 
0,189,84 

6410 DATA 3,49,249,145,249,202,189,84,3,49,249,145,249,96, 

E 
6420 REM BLOCK 6 ******* 

6425 DATA 160,0,162,32,142,67,12,232,142,70,12,232,142,73, 
12,232,142,76 

6430 DATA 12,173,33,208,10,10,10,10,141,176,2,173,33,208, 
41,15,13 

6440 DATA 176,2,153,0,216,153,0,217,153,0,218,153,232,218, 
153,0,4 

6450 DATA 153,0,5,153,0,6,153,232,6,200,208,229,152,153,0, 
60,153 

6460 DATA 0,61,153,0,62,153,0,63,200,208,241,174,67,12, 
224,60,240 

6470 DATA 15,238,67,12,238,70,12,238,73,12,238,76,12,76, 

65, 12, 96, E 
6480 REM BLOCK 7 ******* 

6485 DATA 160,0,162,32,142,140,12,142,145,12,185,0,32,73, 
255,153,0,32,200 

6490 DATA 208,245,173,140,12,201,63,240,9,238,140,12,238, 

145,12, 76, 138, 12, 96, E 
6540 REM BLOCK 8 ******* 

6545 DATA 160,0,173,163,2,174,162,2,224,1,240,20,224,2, 
240,71,153 
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6550 DATA 0,216,153,0,217,153,0,218,153,0,219,200,208,241, 

96,10,10 
6560 DATA 10,10,141,164,2,185,0,4,41,15,13,164,2,153,0,4, 

185,0 
6570 DATA 5,41,15,13,164,2,153,0,5,185,0,6,41,15,13,164,2 
6580 DATA 153,0,6,185,232,6,41,15,13,164,2,153,232,6,200, 

208 
6590 DATA 209,96,141,164,2,185,0,4,41,240,13,164,2,153,0, 

4,185 
6600 DATA 0,5,41,240,13,164,2,153,0,5,185,0,6,41,240,13, 

164 
6610 DATA 2,153,0,6,185,232,6,41,240,13,164,2,153,232,6, 

200, 208,209, 96, E 
6620 REM BLOCK 9 ******* 
6625 DATA 169,0,141,167,2,173,0,220,106,176,9,162,2,142, 

167,2,106 
6630 DATA 76,28,14,106,176,5,162,4,142,167,2,106,176,9, 

17 3 167 2 
6640 DATA 105,6,141,167,2,96,106,176,8,173,167,2,105,3, 

141,167, 2, 96, E 
6650 REM BLOCK 10 ******* 
6655 DATA 120,169,15,141,21,3,169,0,141,20,3,141,178,2, 

141,18,208 
6660 DATA 173,17,208,41,127,141,17,208,173,25,208,9,1,141, 

25,208, 88, 96, E 
6670 REM BLOCK 11 ******* 
6675 DATA 173,178,2,208,37,169,226,141,18,208,169,59,141, 

17,208,173,192 
6680 DATA 2,141,33,208,169,29,141,24,208,169,24,141,22, 

208,169,1,141 
6690 DATA 25,208,141,178,2,76,49,234,169,252,141,18,208, 

169,27,141,17 
6700 DATA 208,173,177,2,141,33,208,169,21,141,24,208,169, 

8,141,22,208 
6710 DATA 169, 1,141, 25, 208, 169, 0,141, 178, 2, 76, 129, 234, P 

6999 REM SPRITE DATA ******** 

7000 DATA 74,250,85,74,34,73,74,34,65,74,34,65,74,34,65, 
1 ? 3 16 2 

7010 DATA 0,0,0,49,198,68,41,41,68,37,41,68,37,207,84,41, 

41 

7020 DATA 84,49,41,40,0,0,0,1,196,0,2,4,128,2,4,128,3 

7030 DATA 199,128,2,32,128,1,192,128,0,0,0,0,4,0,0,4,18 

7040 DATA 0,7,146,64,4,158,0,7,130,64,0,14,0,0,0,0,61 

7050 DATA 239,188,37,2,32,61,194,56,33,2,32,33,226,60,0,8,0 
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7060 
7 07 
7080 

7090 
7100 

7110 
7120 
7130 
7140 
7200 
7210 

7220 



DATA 33,232,64,33,47,64,33,41,64,61,239,120,0,0,0,0,0 
DATA 0,0,0,0,0,0,0,0,37,124,136,37,16,216,61,16,168 
DATA 3 7,16,136,3 7,16,136,0,0,0,15,123,192,8,74,64,14, 
75 

DATA 128,8,74,64,8,122,64,0,0,0,0,0,0,139,232,162,218 

DATA 12,162,171,138,162,138,9,162,138,8,162,139,232, 

190,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0 

DATA 64,0,1,240,0,1,16,0,7,28,0,1,16,0,1,240,0 

DATA 0,64,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

REM SAVE ML DATA ****** 

DATA 169,1,162,8,160,255,3 2,186,255,169,15,162,0,160, 
19,32,189,255,169 

DATA 4,133,2 53,16 9,0,133,252,169,252,162,127,160,7, 
32,216,255,96 




HYPERTEK INTELLIGENCE^" SYSTEMS 

WHERE INTELLIGENCE IS THE KEY 

TO RESIDENTIAL CONTROL OR COMMERCIAL FACILITY MANAGEMENT 

Intelligence is the key since intelligent devices tiave the 

ability to reason and make decisions under changing conditions. 
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STAND ALONE OPERATION DOES NOT 
REQUIRE AN OFFICE/PERSONAL 
COMPUTER. 

CAN COMMUNICATE WITH ANY OFFI- 
CE/PERSONAL COMPUTER VIA STAND- 
ARD RS.232 INTERFACE. 
REMOTE ACCESS CAPABILITY VIA 
MODEM. 

OPERATION THROUGH BROWNOUTS 
AND BLACKOUTS. 

BOTH WIRELESS POWER Lll^E CARRIER 
AND HARDWIRED RELAY OUTPUTS 
EXTREME PROGRAMMING 
FLEXIBILITY 



SYSTEM OPERATION 



INPUTS- 



■* INTELLIGENCE SYSTEMS 
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COMMODORE 64 

80 COLUMN BOARD 




Jiflg.oo 





The dream of seeing 80 columns on the screen at one time Is now a reality. 
The Protect© Expansion Board converts your Commodore 64 to 80 col- 
umns! PLUS you get a word processor with database mail merge, an elec- 
tronic spreadsheet, and a terminal emulator. List $249. SALE $149. 
*When you buy any monitor — Commodore 64 Computer — Disk Drive - 
Printer! 80 Column Board purchased alone — Cost $169.00. (Disk Pro- 
grams add $10.00). 

80 COLUMN MONriOR SALE 

9" Screen ■ Green Text Display 

12" Scrren - Green Text Display {anli reflective screen} 
12" Screen ■ Amber Text Display (anti reflective screen} 
14" Screen ■ Color Text Display 

VIC 20 COMPUTER 40a0 COLUMN BOARD LIST $149.00 SALE $89.00 



• ISDAYFREETRtAL 

. WE HAVE LOWEST COMMODORE 64 PRICES 

• WE HA VE OVER 500 PROGRAMS 

• VISA • MASTERCHARGE • COD 

• WE LOi^E OUR CUSTOMERS 



List 


Sale 


$139 


$79 


$199 


$ 99 


$219 


$119 


$299 


$269 




FNXERPRIZES ""^ ^^'^^ °^^ CUSTOMERS) 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phont 312/382-5244 to ord«r 



Commodore Kids W^ Awards 



by Betsy Byrne 



Worried about the future? Not 
me! I recently attended the 34th 
International Science and En- 
gineering (ISE) Fair, held in my 
home town, Albuquerque, New 
Mexico. Why would a science and 
engineering exhibition put my 
fears about the future of the world 
to rest? Because the exhibitors at 
this particular fair were kids, stu- 
dents who won the honor of par- 
ticipating there by being the best 
in ISE fairs all over the USA and 
several other countries. And in 
even the short time I had to look 
around (several hours), I was 
awed and amazed at the caliber 
of the projects presented and the 
bright young minds that had 
conceived them. 

Being a Commodore enthu- 
siast, 1 was not at all surprised 
(but I did feel pleased and proud), 
to see that our favorite computers 
played a big role in several ambi- 
tious and impressive projects. VIC 
20s, Commodore 64s, PETs and 
CBMs of many types were there, 
standing quietly in the booths next 
to their proud young users. Of 
course there were other types of 
computers to be seen at the fair, 
but for obvious reasons, the ones 
that I concentrated on were 
owned and used by Commo- 
dore Kids. 

1 talked to six in all, and there 
may have been more that I didn't 
find. Each project, and the mas- 
termind behind it, is worthy of 
an article all its own, but unfortu- 
nately 1 don't have enough space 



to do them all justice. 1 will try to 
capture for you the essence of 
these projects, and their creators. 
Believe me, while talking to some 
of these young scientists, 1 wished 
that 1 had paid more attention 
when 1 was in school! 

Dan Wilson, 18, 

Rapid City, South Dakota 

Dan's project, called "Wave- 
length Isolation Using Birefrin- 
gent Polarization", consisted of 
an experiment in which he used 
the transparent plastic wrappers 
from a certain brand of cigarettes 
(!) among other materials, to filter 
light, which he then analyzed and 
photographed. He designed a 
program on his 4032 to do all the 
calculations and display his results 
and conclusions. Photographers 
and astronomers are showing 
quite an interest in Dan's discov- 
eries, and his project won an 




Dan Wilson 



award from the American Patent 
Law Association, in addition to 
two other awards, 

Dan had taken eight months of 
computer programming when he 
decided to use a PET 4032 for 
his project. He credits Georgia 
O'Connor, his computer teacher 
at Stevens High School in Rapid 
City, for generating the computer 
enthusiasm and knowledge he 
needed to create the programs 
necessary for his project. Dan's 
interest in photography led to his 
choice of project, and after discov- 
ering the unique properties of the 
cigarette covering, he designed 
and built a prototype of a variable 
color filter system that he says will 
be more versatile and less expen- 
sive than the glass filters that are 
currently being used. As you might 
imagine, the particular brand of 
cigarette wrapper he "discovered" 
remains a well kept secret! 

Rudy Timmennan, 15, 

Wickes, Arkansas 

"Computer Simulated Statics" 
was the name of Rudy's project. 
He informed me that "statics" is a 
branch of physics that deals with 
stresses and their effects on dif- 
ferent materials. This project, part 
of which deals with the stresses in- 
volved in building bridges, was a 
natural for a boy whose grand- 
father was an engineer who built 
bridges. The fact that his father is 
a physics teacher also influenced 
Rudy's choice. 

Rudy taught himself program- 
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PET STATICS 




Rudy Tim merman 

ming on an 8032 computer in 
order to use it for his project. 
With only four months' pro- 
gramming experience, he wrote 
simulation programs, complete 
with graphics, that would, in my 
humble opinion, daunt many a 
more experienced user. To reach 
the ISE finals Rudy placed first in 
his local, county and regional fairs, 
and second at the state level. The 
latest project that Rudy and his 
computer have embarked on is 
writing adventure games. He sent 
me a copy of one that is really in- 
teresting and exciting! It was a bit 
too long to publish, but 1 hope 
he keeps up the good work, in 
both fields. 

Bill Wilcox, 16, 

Parkersburg, West Virginia 

"The Advantage of a Radially 
Stressed Membrane as a Sound- 
Light Interface" is the impressive 
sounding title of the project tfiat 
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Rudi) Timmerman 's statics simulation screen. 




BHi Wilcox 

Bill Wilcox used his VIC 20 to 
create. Bill is another self-taught 
programmer, and he put his pro- 
gramming skills to good use 
when he interfaced his VIC to 
an amplifier and speaker system 



through the user port. 

This project was a bit hard for 
this "lay person" to understand, 
but if 1 have it right. Bill reflected 
a laser off a "radially stressed 
membrane" so that the user could 
actually see the accuracy of a 
computer-generated sound wave- 
fomi. He used the Super Expander 
to access the VIC 20's high reso- 
lution graphics so that he could 
portray the resulting mathematical 
analysis of the "Lissajous Figures" 
and sine wave forms. 

I might not have the back- 
ground to totally understand Bill's 
accomplishments, but a lot of 
experts at the ISE Fair certainly 
did! Bill received a fourth prize in 
physics, a third from the Society 
of Photographic Scientists and En- 
gineers, a second from the Acous- 
tical Society of America and an 
Honorable Mention from Kodak. 
According to Bill, one of the pos- 
sible applications of his project is 



86 COMMODORE: POWER/ PIJ^Y Fall 1983 



absolutely precise tuning of musi- 
cal instruments. He hopes he will 
be able to acquire a Commodore 
64 soon, and it will be interesting 
to see what he can do with the 
64's SID chip! 

Allen Ingling, 

Delaware, Ohio 

"An Eight-Bit Digital/Analog 
Converter" was the name of Allen 
Ingling's project for the ISE Fair. 
What Allen did was use a Com- 
modore 64 to control a servo an- 
tenna, a piece of hardware that 
looks very much like a miniature 
satellite dish, Allen told me that his 
Dig[ital/Ana!og converter could be 
used to control any analog device, 
but he chose the little servo an- 
tenna because he had easy access 
to one. 

Since I had met my first com- 
puter-controlled home robot, 
TOPO, the day before the ISE 




Men Ingting 



Fair, I immediately asked if this in- 
cluded robot arms {TOPO lacks a 
working arm} and Allen assured 
me that it did, providing proof that 
Commodore Kids are able to do 
things that were science fiction 
only a few years ago! 

Allen taught himself BASIC 
on his 64, an example of my own 
personal belief that self-taught 
programmers are sometimes the 
most innovative. In fact, most of 
the kids 1 talked to at the fair had 
little or no formal training in pro- 
gramming, although they had 
written some very sophisticated 
programs to use in their projects. 

Brent Hinkle, 15, 

Friona, Texas 

Brent's project was "Cloverleaf 
Knots — Do They Conform to 
Knot Theory?". Since I was not 
aware that there actually was such 
a thing as knot theory. Brent had 
to be very patient with me as he 
attempted to describe his project. 

According to Brent, mathe- 
maticians, particularly those in a 
branch of mathematics called to- 
pology, have devised a way to 
mathematically describe the paths 
taken in the formation of certain 
knots. Brent became interested in 
these formulas after reading an ar- 
ticle by topologist Lee Neuwirth in 
Scientific American. His project 
consisted of trying to prove or dis- 
prove certain theories put forth by 
Neuwirth, touching on the prob- 
ability that clovedeaf knots are 
mathematically equal to another 
type of knot, described to me by 
Brent as the kind of knot I use to 
tie my kids' shoes. 

This all became a little clearer 




Brent HinWc 

to me when Brent described the 
practical applications of his re- 
search. He explained that these 
theories could be useful in com- 
puting certain things having to do 
with electrical circuits, population 
fluctuation or even in making pre- 
dictions about ecological systems. 
In short, he said they could apply 
to anything cyclic, or anything that 
goes through some type of cause 
and effect cycle. 

Brent used his Commodore 64 
to do all his calculations, and as a 
display aid to illusti-ate a cloverleaf 
knot "deforming" into the other 
type (shoelace knot). Brent 
learned programming on a PET 
computer at Friona High School, 
and is spending the summer pro- 
gramming games on his 64. He 
says he misses having a local place 
to acquire software for his Com- 
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modore, and wishes he could get 
in touch with a user group so that 
he could at least have access to 
some of the public domain games 
rather than having to type them in 
from scratch. 

Richard Begay, 

Crystal, New Mexico 

Richard and I were only able to 
talk about his project for a few 
moments, so 1 have very little in- 
formation about it, unfortunately. 
The project, called "Plane Fun" 
was in the computers and mathe- 
matics category, and consisted 
mainly of a computer program to 
illustrate and teach plane geome- 
try. The teacher who accompanied 
Richard, Paula DeLairro, was veiy 
enthusiastic about the project and 





Richard Begoy 



Eugene Sargent 

Richard's programming ability, as 
the judges must have been, since 
Richard won top honors in the 
Arizona region! (He attends school 
in Tuba City, Arizona.) 

Eugene Sargent, 16, 

Fayetteville, Arkansas 

A project called "Experiment- 
ing With Robot Design" brought 
Eugene to the ISE finals, and an 
interesting and timely project it 
certainly was. This was a project I 
had quite a bit of interest in, hav- 
ing fallen in love with the idea of 
robots and all their possible ap- 
plications; friends and helpers at 
home, in schools, in industry or 
helping us inhabit outer space! 

Eugene emphasized that his 
robot was only a very simple 
example among all the robot 
possibilities, but 1 was extremely 
impressed with the fact that a 



high school junior with little or no 
training in electronics OR com- 
puter programming could accom- 
plish what Eugene did. He built his 
robot on a uen; low budget ($40), 
using old computer parts he sal- 
vaged at Fayetteville High School. 
He then interfaced it with a VIC 20 
computer he had received as a 
Christmas gift. The interface was 
connected through the user port, 
and used a control circuit, buffer 
and power supply — all of which 
he made himself. He used the 
potentiometer in the VIC paddle- 
port to update the computer on 
the position of the robot's steer- 
ing column. 

When I asked Eugene what 
advice he had for other kids 
who might want to make a VIC- 
controlled robot, he recommended 
a group of books published by 
Tab publishing company that deal 
with designing and building robots. 
Eugene is currently learning 
to program hi-res graphics on his 
VIC (he doesn't have a Super Ex- 
pander) and would like to learn 
machine language in order to speed 
up the "thought" processes and 
learning abilities of future robots 
he wants to build. C 
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A Printer Character Generator 
for the Commodore 64 



by Josh Rai 




Josh Rai 



Ten-year-old Josh 
Rai was introduced 
to computing two 
years ago, in the 
third grade, when 
he began to use 
a PET at the 
John F. Kennedy School in Great Neck, 
New York. He really became intrigued by 
computers in December, 1981, when he 
and his sister got a VIC 20 for Christmas. 
He learned alot about programming from 
the VIC manual, the Programmer's Ref- 
erence Guide and from Amie Friedman, 
a high school teacher who gives private 
classes for kids and runs the Great Neck 
adult education computer program. The 
rest of Josh 's family knows virtually 
nothing about computers and usually 
cannot help him. 

Josh got a Commodore 64 in February, 
1983, because he wanted to learn more 
complicated things, including machine 
language (which he still has not figured 
out). Besides programming, he likes 
writing, playing the violin, baseball 
and tennis. 



The Printer Character Generator is a program 
that allows you to define a character 35 x 21 pixels 
large on the VIC 1515 printer. (It has only been used 
on the VIC 1515, but will also work on the 1525. ) 

To begin with, you are a blue cursor on a large 
white square. Move by pressing T for up, V for 
down, F for left and G for right. Press the SHIFT key 
to turn on a dot and the COMMODORE key to turn 
it off. To make or erase a line, hold down SHIFF 
or COMMODORE while you move. You may also 
clear the screen and start your character over by 
pressing SHIFT and CLR/HOME. You can reverse 
the character if you press R. 

When satisfied with your character, press the + 
sign and wait for about ten seconds. It will print your 
picture on the printer and ask if you want to edit it. If 
you do, type in yes and edit (or clear the screen and 
make another character). But remember, only one 
character can be in memory. 

If you do not want to edit, you will come upon 
another question: DO YOU WANT TO PUT THE 
CHARACTER INTO DATA STATEMENTS? Saying 
yes would erase the program (be careful about that; 
the character generator would be NEWed) and 
make a new program with data statements and an 
extra two lines, so if the program is run, it will print 
the character again. You see, the computer would 
do aD the work by making a SAVEable program 
where all you have to do is say RUN and it prints 
your character. 

Lines 10 to 40 and 700 to 820 set the variables 
and give the instructions. 

Lines 40 to 49 make the box. 

Lines 60 to 130 let you move. 

Lines 140 to 182 print the character on the 
printer. 

Lines 183 to 230 check to see if you want to 
edit it. 

Lines 310 to 340 check if you want to put the 
character into DATA statements. 

Lines 350 to 380 make the DATA statements. C 
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Printer Character Generator 



10 
20 
23 
30 
40 
45 
47 
48 
49 
60 
70 
73 

77 

80 

90 

93 

95 

97 

115 

117 

120 

130 

140 

143 

145 

150 

160 

165 

167 
170 
180 
181 
182 
183 

200 
210 
220 
225 
227 
228 



;FOR T=l TO 15:READ 
53280, 0:POKE 646,1 



LO(T) :NEXT 



DIM L0(15) ,P${15) : 

POKE 53281, 0:POKE 

GOSUB 700 

PRINT" [CLEAR]" 

X=0:Y=0:N=1 

PRINT" [HOME]"; 

FOR S=l TO 7:PRINT" [RVS,SPACE35]" 

PRINT" [RVS,SPACE35] " 

PRINT" [RVS,SPACE35] " :NEXT 

POKE LO(1)+X+(40*Y) ,6 

POKE LO(l)+X+(y*40)+N,l 

IF PEEK(653)=1 THEN POKE (LO ( 1) -54272) +X+ (Y*40} , 209 

:P0KE LO(1)+X+(Y*40) ,4 

IF PEEK(653)=2 THEN POKE (LO { 1) -54272) +X+ (Y*40) , 160 

:POKE L0(1) +X+(Y*40) ,1 

IF PEEK(197)=22 AND Y>0 THEN N=40 : Y=Y-1 :GOTO 120 

AND Y<20 THEN N=-40 : Y=Y+1 :G0T0 120 
AND X>0 THEN N=l :X=X-1:G0T0 120 
THEN GOSUB 900 
AND X<34 THEN N=-1:X=X+I 
AND PEBK(653)=1 THEN 45 



IF 
IF 
IF 
IF 
IF 



PEEK(197) =31 
PEEK(197) =21 
PEEK(197) =17 
PEEK{197}=26 
PEEK(197) =51 



IF PEEK(197)=40 THEN 140 
POKE LO(1)+X+(Y*40)+N,1 
GOTO 60 

PRINT" [H0ME,D0WN21] JUST [SPACE] A [SPACE] MINUTE . . ."; 
FOR U=l TO 15:P$="" 

FOR T=LO(U)-54272 TO LO (U) -54266 :W=l 
FOR I=T TO T+240 STEP 40 
IF PEEK(I)=209 THEN P=P+W 

W=W*2:NEXT:P=P+128:P$=P$+CHR$(P) : P=0 :NEXT: P$ (U) =P$ 
:NEXT 

PRINT" [HOME,D0WN21,SPACE16] " 
OPEN 4,4:CMD 4 

FOR T=l TO 5:PRINT CHR$ ( 8) P$ (T) , 
FOR T=6 TO lOrPRINT CHR$(8)P$(T) 
FOR T = ll TO 15:PRINT CHR$ ( 8) P$ (T) ; : NEXT 

PRINT#4:PRINT" [H0ME,D0WN22 ,L. GREEN, RVS] WANT [SPACE] TO 
[SPACE] EDIT [SPACE] YOUR [SPACE] CHARACTER? [WHITE] " 
CLOSE 4: GET A$:IF A$=""THEN 200 
IF A$="N"THEN 310 
IF A$<>"Y"THEN 200 

PRINT" [HOME,DOWN22] O.K. [SPACE27] " 
FOR T=l TO 1000:NEXT 
PRINT" [HOME,DOWN22,SPACE31] " 



: NEXT: PRINT 
: NEXT: PRINT 
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230 
310 



320 
330 
340 
3 50 
360 

365 
366 

370 

371 
373 
375 
376 

377 

378 

390 

500 

510 
700 

710 

720 
730 



740 
745 



POKE LO{1)+X+(40*Y) ,1:G0T0 60 

PRINT" [CLEAR] WANT [SPACE] TO [SPACE] ERASE [SPACE] PROGRAM 
[SPACE] AND [SPACE] PUT [SPACE] YOUR [SPACE] 15 [SPACE] 
CHARACTERS [SPACE] INTO [SPACE] DATA?" 
GET A$:IF A$=""THEN 320 
IF A$ = "!SI"THEN END 
IF A$<>"y"THEN 320 
PRINT" [CLEAR, D0WN2] " ; :L=I:C=1 

PRINT RIGHT$(STR$(L) ,LEN(STR$(L) ) -1) ;" [SPACE] DATA 
[SPACE]"; 

IF C015 THEN FOR P = l TO 2 
FOR 1=1 TO 7 

PRINT RIGHT$(STR$(ASC(MID$(P$(C) ,1,1) ) ) , 
LEN(STR$(ASC(MID$(P$(C) ,I,1))))-1); 
PRINT","; 

NEXT:C=C + 1: IF C015 THEN NEXT 
PRINT" [LEFT, SPACE] ":L=L+1: IF C<16 THEN 360 
PRINT"I000 [SPACE]DIMU$ (15) : F0RT=1T015:F0RI=1T07 :READA 
:U${T)=U${T)+CHR$(A) :NEXT:"; 

PRINT"NEXT"CHR$ (13) "1010 [SPACE ] 0PEN4 , 4 :CMD4 
:FORT=0TO10STEP5:FORI=lTO5 : " ; 
PRINT"PRINTCHR$ (8) U$ (I+T) ; : NEXT 

:PRINT"CHR$ (13) "1020 [SPACE] NEXT: PRINT#4 :CL0SE4" 
PRINT" [HOME]"; :FOR T=631 TO 642:POKE T,13:NEXT 
:POKE 198, 12:NEW 

DATA 55296,55303,55310,55317,55324,555 76,5558 3,55590, 
55597,55604,55856,55863 
DATA 55870,55877,55884 

PRINT" [CLEAR] CHARCTER [SPACE] GENERATOR [SPACE] FOR [SPACE] 
THE [SPACE] PRINTER. . . " 

PRINT" [D0WN2] BEFORE [SPACE] YOU [SPACE] USE [SPACE] THIS , IT 
[SPACE] IS [SPACE] ASSUMED [SPACE] THAT [SPACE2] YOU [SPACE] 
HAVE [SPACE] A" 

PRINT" [DOWN, RVS, MAGENTA] PRINTER, ASSEMBLED , AND [SPACE] 
WITH [SPACE] PAPER. [WHITE] " 

PRINT" [D0WN3] IF [SPACE] YOU [SPACE] DO [SPACE] NOT [SPACE] 
HAVE [SPACE] THIS, THEN [SPACE] THIS [SPACE] PRO- [SPACE2] 
GRAM [SPACE,RVS,MAGENTA]WILL [SPACE] NOT [RVOFP, WHITE, 
SPACE]WORK!" 

PRINT" tD0WN2] IF [SPACE] YOU [SPACE] DO [SPACE] HAVE [SPACE] A 
[SPACE] PRINTER, PRESS [SPACE] A [SPACE] KEY [SPACE] TO [SPACE] 
BEGIN." 

PRINT" [DOWN,RVS]NOTE:THIS [SPACE] PROGRAM [SPACE] IS 
[SPACE] ONLY [SPACE] KNOWN [SPACE] TO [SPACE]WORK [SPACE] ON 
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750 
760 
761 
762 
763 
770 

775 



777 
778 



[SPACE]THE [SPACE, RVOFF]VIC-1515 [RVS, SPACE] PRINTER. " 
GET A$:IF A$=""THEN 750 
PRINT" [CLEAR] T [SPACE] = [SPACE] UP" 
PRINT" V [SPACE] = [SPACE] DOWN" 
PRINT"F [SPACE] = [SPACE] LEFT" 
PRINT"G [SPACE] = [SPACE] RIGHT" 

PRINT" [DOWN,RVS] + [RVOFF , SPACE] TO [SPACE] PRINT [SPACE] 
AND [SPACE] KEEP [SPACE] CHARACTER [SPACE] IN [ SPACE ] MEMORY" 
PRINT" [DOWN, RVS] SHIFT/CLEAR [SPACE] HOME [ RVOFF , SPACE ] TO 

[SPACE] ERASE [SPACE]CHARACTER [SPACE] & [SPACE] DO [SPACE] 

IT [SPACE] OVER" 

PRINT" [DOWN, RVS] R [RVOFF, SPACE] TO [SPACE] REVERSE [SPACE] 

CHARACTER" 

PRINT" [DOWN] (MAKE [SPACE] A [SPACE] --G-- [SPACE] TO [SPACE] 



GET THE MOST our OF YOUR 



COM 



• • 



E-64 



WITH SOFTWARE FROM ABACUS 



i H AKH It^ is Li li A !-■ H U^ h ^iM 

IPHICSGnAt'HUVSJfMrAi' 

VPHICSGHJlirtrt'GR'^P 




( 
IC 
tAPHICS 
IPHICSGI 
'HICSGBA 
HICSGRAPHlCSGRftPHI 
rcr:cripMLr*:f^nAPnkr 



SCREEN GRAPHICS 64 

■ Adds 24 commands 
to BASIC. 

■ Plot points, lines, 
boxes, circles and fill 
in hires and 
multicolor, 

■ Define and animate 
sprites easily. 

■ Includes demos, 
tutoriai and manual. 

■ $24.95 FOR TAPE 
m $27.95 FDR DISK 




SYNTHY 64 

Full featured music 
and sound 
synthesizer. 

Easy entry and 
editing ot notes and 
commands. 
Control ASDR, filters, 
waveforms etc. 
Includes sample 
music and manual. 

$29.95 FOR TAPE 
$32.95 FOR DISK 




CHARTPAK 64 

Create Pie. Bar and 
Line ctiarts in high 
resolution. 
Enter, edit, save and 
recall to/from disc, 

Ctioose any of 8 charl 
formats and design 
charts interactively. 
Produce hard copy 
onto 1515. 1525 or 
Epson printer. 

$42.95 DISK ONLY 





tncK so poDtRfiA caviwiK 



ULTRABASIC 64 

Turtle, hires. 

multicolor and sprite 

graphics. 

Sound and sound 

effects. 
1 Screen copy to 1515, 

1525 or Epson 

printers. 
I Includes demos, 

tutorial, manual. 

$39.95 FOR TAPE 
I $42.95 FOR DISK 



TO ORDER NOW 

PLEASE WRITE: ABACUS SOFTWARE 
RO. BOX 7211, Grand Rapids, Ml 49510 

For postage & handling, add $1 .50 
(U.S. and Canada) ,add $3.00 for 
foreign. Make pay ment ir i U.S- 
doltars by cfieck, C^m I fST l 
money order or S^EI l ^'iW i 
charge card. FOR IMMEDIATE 
SERVICE PHONE 616/241-5510 

FREE CATALOG 

Ask for a listing ot other soft- 
ware for your Commodore-64 
orVIC-20. 
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A [SPACE] -- [RVS] G [RVOFF] -- [SPACE] OR [SPACE] A [SPACE] -- 

[RVS] G [RVOFF] — [SPACE] TO [SPACE ] A [SPACE j — G — ) " 
780 PRINT" [DOWN,RVS]SHIFT[SPACE] KEY [RVOFF, SPACE] TO [SPACE] 

TURN [SPACE] ON [SPACE] DOT" 
7 90 PRINT" [DOWN, RVS] COMMODORE [SPACE] KEY [RVOFF , SPACE] TO 

[SPACE] TURN [SPACE] OFF [SPACE] DOT" 
800 PRINT" [D0WN4] PRESS [SPACE] ANOTHER [SPACE] KEY" 
810 GET A$:IP A$=""THEN 810 
820 RETURN 
900 FOR T=l TO 15:F0R U=LO (T) -54272 TO LO(T)-54266 

:FOR I=U TO U+240 STEP 40 
905 IF PEEK(I)=160 THEN POKE I,209:GOTO 920 
910 IF PEEK(I)=209 THEN POKE 1,160 
920 NEXT:NEXT:NEXT:RETURN 




Discover how easy it is 

for you to get useful 

results from your VIC. 



Underrstanding Youf VIC Volume t Basic 
programming aim a proven Mep-by-Slep approach 

to teach programfning li costs S^VSS 

A cassette tape with two demonstration prograrns 
from the book isavailatile for 57 95 II wjM save you 
typing lime and eliminate typing errors 

V(C Sonware 
Eaay to use program for you to create new 
characters for graphtca or gamss Cassette S9 9b 



See your dealer or order direct 

VISA/MC accepted 

Money back guaraniee 

Please add $2 (£S overseas] 

tor shipping and nancJNng 



TIS iwc 




Totas Intorfnation Services, irc 
Box 921. Dept CM 

Los Alamos NW fl754d 



Daaler inquiries invited 
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Who Needs A Word Processor? 

..I Do! 



by Richard Kotomori, Jr. 



Richard T. Kotomori, Jr. 
is a 15 year-old student 
who attends the Albuquer- 
que Academy. He has been 
using his Commodore 64 
computer since October, 
1982. His first exposure 
to a computer was in Sep- 
tember, 1982, when he took 
a programmed instruction 
course in elementary 
BASIC programming. 

He currently uses the 
family's Commodore 64 
for writing and storing his 
notes, writing term papers, 
using drill-and-practice 
programs for studying his 
English and Spanish vo- 
cabulary words and, of 
course, for games. He pres- 
ently has little interest in 
computer programming 
but makes practical use 
of the computer almost 
every day. 




Richard Kotomori 

"Oh no, not another English 
paper," used to be my response 
when an assignment was given to 
me. This anxiety was caused by my 
previous experience with English 
papers, and by this time, if I had 
learned anything from English, it 
was that I hated it. 

Staying up all night, arguing 
with my parents about making 
corrections, writing a second or 
third draft and making up excuses 
about why 1 hadn't started the as- 
signment until the last night, are 
only some of the reasons I had 
hated English so much. 1 also 
despised the fact that we had to 
write papers legibly in ink or type 
them (both of which are time con- 
suming). To top it all off, after such 
a hectic night, my grade, at best, 
would be a C. Simply because 
I had terrible handwriting and did 
not have enough time to type or 



spell didn't mean that I should 
always get a lower grade. At least, 
/didn't think so. 

That was before we bought a 
Commodore 64 and a word pro- 
cessor, which, according to the 
description, allows you to "keep 
menus, financial data, mailing lists, 
prepare and print letters and re- 
ports.' ' I was only interested in 
an easier way to complete my as- 
signments as quickly as possible. 
With a word processor you can do 
anything you can do with a type- 
writer plus edit easily (without 
white-out correction fluid), save 
copies that can be referred to at a 
later date and even save legible 
school notes throughout the year. 

Everyone in my family has ben- 
efited from this program. It helps 
my father with his letters (espe- 
cially when multiple copies are 
needed) and with his software 
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reviews; my mother with her vol- 
unteer work committee reports, 
and invitations; even my little 
seventh-grade brother has turned 
in papers written with the word 
processor. (But he still doesn't 
realize that an outline is necessary 
for a good paper, ) As for me, the 
word processor has transformed 
me from a D student to a B+ stu- 
dent in English. 

The word processor was very 
easy to master and is a blessing to 
anyone who has poor eyesight 
(me), especially with the 40- 
character display on the Commo- 
dore 64. Rewriting is a thing of the 
past, since rearranging lines, and 
paragraphs and fonnatting the text 
are so much easier Now 1 can start 
my assignments while my ideas 
are fresh, type for a while, save 
and continue later with new ideas. 
It is just not as boring as it used 
to be; and with the whole family 
looking over my shoulder, 1 have 
fewer mistakes (my best paper 
had only one error). A computer 
with a word processing program 
is a good investment for the 
whole family. C 




FIVE POWERFUL SOFTWARE 
DEVELOPMENT TOOLS 

f^iis Zhc Sm'timi jVcw Book 

INSIDE THE COMMODORE 64" 



THE BOOK 

A complete clear Qxplanalion of machine 
lan^juaoo, Assembly langtrage. Commodore 64 
BTchltecture. graphics, Joysllcl<; and sound effect 
programmingi, Dalalfed sTflp-by-^lep guide to the 
u^e ol tho davalopm^nt tools. How to combine 
BASIC and machine language, make auto-start 
cartridges, interface with the internal I^OU- 
based pfograma ol BASIC and the KarnaE, 
Sample programs fully axptained- 



THE TOOLS 

Aaaem&iery Editor^ Load er^Dflcoder/Monltor 
Full featured Assembler allows use of labels, 
comments and arithmetic enpresslons to create 
machine language pfogr^ms. Create, save. 
modify Assembly language programs with the 
Editor, Load and link machine language modules 
with the Loader. Decode machine language bacK 
Into assembly language for stirdy Or Input Id the 
Editor. Sfcngle-atep program enacutlon with me 
Monitor. Combtnes AssamCler/Edilor tor maxi- 
mum ease of ufte- 



ALL FOR $54,95 plus Sa.OO postage and handling Add S5.00 for disk version 
Send check, M.O., VISA/MC (SZ.OO S.C.} oc ap&cify C.O.D. (add J3.00) lo: 



P.O. Box 207, Cannon Falls, MN 55009 
507-263-4821 



CDrnmocJori^ GiiUrttm Mxit\\n^i Inc. 



VOICE WORLD'S 




24K Golden RAM 
Expansion Chassis 

ONLY $149.00 



-Game 



• Programmer's dream 
player's delight 

• Boosts VIC 
memory to 
29K! 

• 4 expansion slots 
witti switches for in 
stent cartridge seiection 
(aster than a disk. 

• Accepts any cartridge 
designed for the VIC 20- 

• System Reset Button. 

• Plugs directly into your VIC 20-. 

• 8 memory control switches — easy to 
configure in BK banks lor custom 
appiications. 

• Factory tested— one year iimited warranty 

VOICE WORLD 

ftnoKU). 7 Del Ma-.CA 92014 
(619)481-7390 

VIC 20 is a registered trademark of Commodore Business Macfiines. 1(4(0. 





• Start address selection at 2000, 
4000, 6000, AOOO HEX. 

• ROf*/l mode switches for 
memory write protec- 
tion and PROM, 
EPROM 
emulation. 
• Memory 

banks 
hold pro- 
grams.'data 
even when de- 
selected. 
• Gold-plated connectors' 
SwitDfi contacts for high reliability. 
• Fused to protect your VIC 20." 

TO ORDER: 

Send check or money order. Add 3.00 
shipping and handling. California 
residents add 6% sales tax. COD 
DEALER INQUmiES INVITED 
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Confessions Of A Computer 
Whiz-Kid's Sister 



by Diana Scimone 



I knew it was all over the day he 
told me he was learning PASCAL 
in high school and I thought he 
was studying French philosophy. 

Things went steadily downhill 
from there. 

It's not easy having a computer 
whiz-kid for a brother — especially 
when he's only half your age. 
Take, for instance; the Saturday 
morning he tried to teach me to 
play Robot Attack, one of the 
games he designed. While I was 
oohing and ahhing over the tiny 
little robots running helter-skelter 
around the screen, my brother, TJ, 
patiently explained how to turn his 
VIC 20 on, and then how to move 
the joystick to make the cute little 
men avoid being blown to pieces. 
After a few minutes of instruction, 
he turned the computer off and in 
a voice usually reserved for Gain- 
ing dogs to fetch a stick, gave me 
my first assignment: turn the com- 
puter back on. . . 

To this day, 1 have never played 
Robot Attack again. 

Ah yes, 1 remember an earlier 
time, back when life was simpler, 
when younger brothers played 
with frogs and fire trucks. 

It all started a year ago when TJ 
was just 15 years old — the day his 
parents put their collective feet 
down. My father, a reasonably 
successful business man, was 
amazed at the high cost of living. 
Where, he wondered day after 
day, did his hard-earned money 



go? Alas, it was not long before my 
mother solved the mystery: TJ was 
methodically converting large por- 
tions of my father's paycheck into 
quarters, which were systemat- 
ically disposed of at the neigh- 
borhood arcade. 

What could my parents do? 
Rather than forking over quarters 
for the rest of their lives, they de- 
cided it would be easier — and a lot 
cheaper — to simply buy him a 
computer of his own. At least they 
would know where he was after 
school. 

As fate would have it, TJ was 
not adverse to their decision, and 
immediately went out and selected 
a Commodore VIC 20, which 
soon became a permanent fixture 
in his room. Why a VIC, you may 
ask? TJ, it seems, had learned 
computerese right in his own high 
school, Good Counsel, in Mary- 
land. There, unlike most schools, 
students do not rush home at the 
sound of the bell, but instead head 
for the computer room where 29 
Commodore PET 4016s, printers 
and disk drives click away from 
sun up to sun down. 

Since he no longer frequented 
arcades, it was simply a matter of 
trial and error (as he modestly re- 
counts it) before he learned how 
to program his own array of video 
games: Frogg\/ Hop, Robot At- 
tack, Crunch!, GhostTown and 
even a few educational programs 
to boot. 



Now, I may not know comput- 
erese, but I am not entirely igno- 
rant. I recognized that something 
had to be done soon: my brother 
had already mastered BASIC and 
Assembly, and was about to learn 
PASCAL. We were no longer 
speaking the same language. I 
knew I had to do something be- 
fore I lost contact with him forever. 

1 began taking a slight interest 
in my enterprising brother. He was 
so far ahead of my limited techni- 
cal knowledge that I could only 
marvel when he attempted an in- 
depth explanation of his latest cre- 
ation. Instead of hiding the fact 
that he was a computer whiz-kid, I 
began telling my friends, I carried 
his picture in my wallet and at the 
drop of a hat would go to great 
lengths to explain his marvelous 
accomplishments. Friends were 
quite patient in putting up with my 
sibling pride. 

Soon I began to get involved 
in more than just a passive way. 
When TJ wanted to copyright his 
programs, guess who spent the 
better part of an afternoon on 
the phone trying to decipher the 
myriad of regulations at the Patent 
Office? It was a small price to pay 
for glory so near to my branch of 
the family tree. 

TJ's fame spread. He and a 
computer buddy, Matt Shannon, 
formed Oakly Software Company 
and began marketing their goods — 
over 20 games and educational 



96 COMMODORE: POWER'PLAY Fall 19B3 



programs between them. From 
store to store they would peddle 
their wares, and soon every soft- 
ware rack in Rockville, Marvland, 
displayed the blue Oakly Software 
packages that had become so near 
and dear to my heart. 

But in spite of TJ's business 
acumen, he was still only 15 — 
not even old enough to drive in 
Maryland. So his mother, in a twist 
of the chauffeur role endured by 
so many parents of teenagers, 
began driving him from store to 
store. Hours at a time she would 
patiently wait in the hot car while 
her son, the junior executive, 
would chat with buyers in air- 
conditioned comfort. After all, 
what's a mother for, anyway? 

One day an odd thought came 
to TJ: Why not get a job in a com- 
puter store? And so he proceeded 
with the time-honored tradition of 
beating the pavement 

While he was filling out an ap- 
plication in one store, a customer 
asked him a question, and in a 
matter of moments, TJ had sold 
her some software. The owner 
offered him a job on the spot. 

When TJ's 16th birthday rolled 
around, it was no surprise to any 
of the family members that he did 
not want a tie. Oh, no. He had al- 
ready picked out a flashy modem 
at his new place of employment. 
Now his parents look forward 
to the monthly phone bills and 
the new game of "I didn't call 



Chicago; did you call Chicago?" 
Meanwhile, AT&T stock continues 
to soar. 

School is now out for the sum- 
mer, and in between working on 
getting that all-important driver's 
license, TJ is under contract to 
design some business programs 
for his high school. He'll also be 
teaching BASIC and the basics 
to a local Commodore 64 
users group. 

Future plans include taking 
more computer courses during 
senior year, looking for a college 
with a strong major in comput- 
ers and talking with a national 
publishing company, which ap- 
proached him about purchasing 
some of his educational wares. 

Meanwhile, 1 have a little project 
of my own: 1 am making an audio 
tape of the click-click-clicking of 
VIC 20 keys to play when my 
computer whiz-kid brother goes 
away to college so 1 won't miss 
him too much. C 



Diono Scimone is a Washington DC-based 
freelance writer who writes a regular column 
for Europe, the magazine of the European 
Community. She sewed as Washington corre- 
spondent for Video Systems /or two yeara. and 
has contributed to Science 80 and 81. Travel/ 
Holiday, and USA Today, awong rnony ot^icrs. 




A Bl-Monthly Journal of Notes, 
Reviews and Arlicles 
Five Years of Service to the PET'Communlty 
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PET Is a rosistorofl wadamark 01 
Commodom Busirwsa Machines. Inc 



The^independent U.S. Magazine for 
Users of Commodore Brand Computers 



EOITORS: Jim and Ellen Strasma 

S20 US t YEAR 

Sample Issue free on request, (rom; 

635 MAPLE, MT. ZION, IL 62549 USA 

217/B64-5320 
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Supporting all COMMODORE compulor* 

Written by users, for usen) 

* GAMES * UTILITIES * EDUCATIONAL * 
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For Grown-Ups Only 



This issue's hints to grown-ups come 
from Stephen Erwin, president of the 
National VIC 20 Program Exchange in 
Portland, Indiana. 



Longer Variables for Easier 
Reading by Kids 

The concept of variables is one of the most dif- 
ficult for children to grasp. To understand that X can 
equal a certain number of apples or bananas is very 
hard for them to visualize. It is even harder to see 
that X can equal any number of apples we assign to 
it and that the number can change. Even when they 
do understand this, it can be very hard for them to 
keep track of what each of those X's or Vs represent 

From the standpoint of teaching children pro- 
gramming or having them easily follow a program 
written for them, it would be so much better if we 
could use words instead of X's or Y's. 

Well, the fact of the matter is that you can. Apple, 
banana, ball and sum are all legal variable names. 
VIC will list them and use them. There are, however, 
some very specific limitations that you must observe 
in order to use them. 

VIC will use any reasonably sized word as a vari- 
able, but only the first two letters count. Two dif- 
ferent words with the same two starting letters will 
be listed differently, but will function as the same 
variable when the program is run. Therefore girls, 
giblets, and gifts will all list differently, but will be 
treated as the same variable. 

The second limitation is that these words cannot 
contain any BASIC words. In one program I wrote, I 
thought I'd be smart and use MONTH and COST as 
variables. Can you see the problem? MONTH con- 
tains ON and COST contains COS. Both are BASIC 
words. It is best to use the following simple program 
to test your variable words. 

CLYDE = 10 : PRINT CLYDE 



If this program works the name is legal. With 
this you will find that although ABRAKADABRA 
ALAKAZAM can equal 10. ANTIDISESTAB- 
LISHMENTERIANISM can't because it con- 
tains a TAB. 

I hope you will have a little fun with this, and that 
it will help you write more understandable programs 
for your Commodore kids. 



Kid-Proof Your Programs with Strings. 

Syntax Error in 540. Many are the hours I've sat 
staring at a perfectly good-looking program line that 
kept producing that statement. It always gives me a 
great sense of satisfaction when I find my mistake 
and realize that the @! *? computer didn't malfunc- 
tion after all. 

It is a different story altogether when this happens 
to a child who is just learning to use a computer. 

As a general rule, you should test the contents of 
input statements, but with small children it is espe- 
cially important to make programs user friendly and 
crash-proof. There is nothing that can be more frus- 
trating to a little one than being left sitting there 
wondering what went wrong. 

Inputs with numerical variables can cause many 
of these problems because they will automatically 
cause a redo-hrom-start error if any non-numerical 
character is typed in for any reason. If you stick to 
string inputs then the program will crash only if you 
fail to write a good program that tests the strings for 
all possible problems. 

to aid in testing, VIC BASIC has a whole series of 
functions that can be used. Before we get to these, 
however, I should remind you that you cannot set a 
string variable equal to a numeric variable. One or 
the other must be converted so that they are both 
strings or both numbers. 

To convert a number to a string use the STR$ 
function: 

10 X=10 

20 X$=STR$(X) 
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To convert a string to a number, provided the string 
is composed of numbers, use the VAL function: 

10 X$="10" 
20 X=VAL(X$) 

Now let's look at the testing of strings. Often you 
will want to limit the number of characters in a 
number or word. The LEN function lets you do this: 



10 X$="4768" 

20 Y=LEN(X$) 

30 IF Y>3 THEN PRINT 



3 DIGITS ONLY " 



You can test the contents of a string with the ASC 
and CHR$ functions and tables. 

10 A$="G" 

20 IFASC{A$K48 0RASC(A$)>57 
THEN PRINT " ENTER #'s ONLY " 

The range of ASCII codes for numbers is 48 to 
57. Letters range from 65 to 90. 

10 A$= " 5 " 

20 IF ASQASK 65 OR ASC(A$)>90 THEN 
PRINT " ENTER LETTERS ONLY " 

To test inputs longer than one character the 
LEFTS, RIGHTS and MID$ functions will separate 
out individual characters. LEFTS (X$, A) gives you 
the left-most A characters of X$. If X$= " TONY " 
the LEFTS (XS,2) - TO. RIGHTS works the same 
way from the right side. RIGHTS (XS,2) = NY 
MID$(XS,A,Y) gives you Y characters starting at po 
sition A. MID$(X$,2,1) - O. MIDS(X$,3,2) = NY 
MID$(X$,L4)-T0NY 

[f you wish to test a number for a dollar sign 
do this: 

10 X$ = "$100" 

20 IF ASC(LEFT$(X$,1)) = 36 THEN X$ = 
RIGHT$(X$,LEN(X$) -1) 



TheASCfor$is36. RIGHT$(X$,LEN(XS)-l)is 
XS without the dollar sign. We can then test X$ to be 
sure it is all numbers: 



10 
20 



30 



FORT = !TOLEN(X$) 
IFASC{MID${X$,T,1)K48 0R 
ASC(MID$(X$,T,1))>57 THEN PRINT 
" NUMBERS ONLY " 

NEXT 



This simple routine uses MID$ to separate and 
test each character of the string. 

The possibilities are almost endless, and when 
they result in a program the kids can't crash, very 
satisfying. C 



As a general rule, you should test the 
contents of input statements, but with 
small children it is especially important 
to make programs user friendly and crash- 
proof. There is nothing that can be more 
frustrating to a little one than being left 
sitting there wondering what went wrong. 



COMMODORE: POWER/PLftY Fall 1903 99 



FLOPPY DISKS SALE 
*$1.19 ea. 

Economy Model or Cadillac Quality 

We have the lowest prices! 



ECONOMY DISKS 

Good quality SVa" single sided single density with tiub rings. 

Bulk Pac 100 Qty. $1.19 ea. Total Price $119.00 

10 Qty. 1.39 ea. Total Price 13.90 

CADILLAC QUALITY --- 

• Each disk certified • Free replacement lifBtime warranty • Automatic dust remover 

For those who want cadillac quality we have the Lorari Floppy Disk. Used by professionals because they can rely 
on Loran Disks to store important data and programs without fear of loss! Each Loran disk is 100% certified (an 
exclusive process) plus each disk carries an exclusive FREE REPLACEMENT LIFETIME WARRANTY. With Loran 
disks you can have the peace of mind without the frustration of program loss after hours spent in program 
development. 

100% CERTIFICATION TEST 

Some floppy disk manufacturers only sample test on a batch basis the disks they sell, and then claim they are 
certified. Each Loran disk is individually checked so you will never experience data or program loss during your 
lifetime! 

FREE REPLACEMENT LIFETIME WARRANTY 

We are so sure of Loran Disks that we give you a free replacement warranty against failure to perform due to faul- 
ty materials or workmanship for as long as you own your Loran disk. 

AUTOMATIC DUST REMOVER 

Just like a record needle, disk drive heads must travel hundreds of miles over disk surfaces. Unlike other floppy 
disks the Loran smooth surface finish saves disk drive head wear during the life of the disk. (A rough surface will 
grind your disk drive head like sandpaper). The lint free automatic CLEANING LINER makes sure the disk-killers 
(dust & dirt) are being constantly cleaned while the disk is being operated. PLUS the Loran Disk has the highest 
probability rate of any other disk in the industry for storing and retaining data without loss for the life of the disk. 

Loran is definitely the Cadillac disk in the world 

Just to prove it even further, we are offering these super LOW INTRODUCTORY PRICES 
List $4.99 ea. INTRODUCTORY SALE PRICE $2.99 ea. (Box of 10 only) Total price $29.90 

$3.33 ea. (3 quantity) Total price $9.99 

All disks come with hub rings and sleeves in an attractive package. 

RANKING FOR BEST PERFORMANCE 



MEASUREfiflENTS 


LORAN 


Verbatim 


Ultra 


3M 


Amplitude 




2 


3 


3 


Missing bit ratio 
(reliability) 




3 


3 


2 


Extra bit rate 




2 


1 


3 


Modulation 




3 


2 


2 


Running torque 




1 


1 


2 



{Numbers that are the same Indicate a tie for that position) 
LORAN beats the competition cold!! 



Add S3. 00 tor poslage. Add S6,00 for CANADA, PUERTO RICO, HAWAIt « 

orders, WE DO NOT EXPORT TO OTHER COUNTRIES, | 

Enclose Cashiers Chock, Money Order or Personal Chock Allow 14 | 

days (gr tJollvery, 2 to 7 days tor phone orders, 1 day express mall! | 

Canada orders rnusl be In U,S, dollars. We accept Visa and Masler- I 

Card, I 



rWE LOVC OUR CUSTOUEH^i 



ENTERPRIZES 

BOX S50, BARRINQTON, ILLINOIS E0010 
Phon* 312J382-5344 to ordar 



"Terrific" 



by Betsy Byrne 



A sneak preview of 
Commodore's speech mod- 
ule for the Commodore 64, 
scheduled for release 
this fail. 

One afternoon as I maneuvered 
to get in our front door with the 
fruits of an afternoon at the gro- 
cery store, I was almost bowled 
over by my five year-old daugh- 
ter, Molly, who was shouting, 
"Mommy! The 64 says I'm 
TERRIFIC!". 

Before I could find out what in 
the world she was talking about, 
my husband Dan called, "Honey, 
listen to this!" and from the direc- 
tion of our computer room (it used 
to be the kitchen) I heard an un- 
familiar feminine voice reciting 
the ABC's. 

"It's here?" I asked, as I hunied 
toward the source of all this excite- 
ment (our family Commodore 64). 
"The SPEECH MODULE came 
while I was out?" 

Dan didn't need to answer, 
since the first thing 1 saw when I 
entered the kitchen was a large, 
unknown cartridge nestled in 
the 64's game port. "W,X,Y,Z." 
finished the pleasant voice, as the 
corresponding letters appeared 
on the screen. 

That scene was played two 
weeks ago, the day that a pro- 
totype of Commodore's new 
speech module arrived at our 
house. The way our family feels 
about the 64 has been subtly 



changed since the arrival of its 
"voice". Somehow the computer 
is more a "real member of the 
family" now that it can communi- 
cate with us verbally. The three 
youngest members in particular 
now tend to say "she" or "her", 
rather than "it" or "the 64". 

After all, a voice synthesizer was 
the computer accessory that had 
headed our "most wanted" list 
ever since Timmy had dubbed the 
Speak and Spell "the magic toy" 
at his first computer show. Need- 
less to say, we were ueiy disap- 
pointed when we found that the 
prices on the popular models 
available were way over our ac- 
cessory budget They cost as much 
as a printer, for heaven's sake! 

None the less, we might have 
managed one, until we actually 
heard one in action. The voice 
that was demonstrated for us at a 
local store sounded harsh and 
mechanical, and worst of all, the 
kids could barely understand it! 
We were told that it was "state of 
the art", and that it would be some 
time before anything better came 
along. Well, folks, "some time" is 
NOW, or at least eady fall of this 
year, when the Commodore 
speech module is slated to be- 
come available in retail stores. 

I had read some new product 
releases about the 64's planned 
speech module, but none of them 
had prepared me for my own re- 
action to it or my family's. I had 
assumed that to program it we 
would have to use phoenemes, 



pieces of words representing 
sounds, since that was the way the 
one we had seen demonstrated 
had worked. On the contrary, to 
program this one, al! we have to 
do is type SAY "PLEASE" and 
press RETURN, and by golly, it 
SAYS PLEASE! I only wish I could 
program my kids to say PLEASE 
that easily. 

Each word in the module's 
235-word built-in vocabulary has 
been assigned a number, so if I 
want to have the computer SAY a 
sentence, the easiest way I have 
found to do it from BASIC (so far) 
is to put the numbers in a data 
statement: 



13 


for- 1 = 1 to 6 


20 


READ I 


30 


SAY 1 :NEXT 


40 


DATA 138,158,78, 




137,133,82 



The computer will then say: "Not 
bad, what next from Commodore?" 

Not bad, indeed, since 1 am 
not much of a programmer, as 
my family would be quick to tell 
you! Nothing else we have ever 
acquired for the computer has in- 
spired me to these heights. Seven 
year-old Timmy is up at six lately, 
so that he can put in some time 
programming the 64's voice to talk 
to his twin brother, James, before 
they leave for the day. 

But enough about program- 
ming for now; there are sure to be 
lots of articles on that aspect of the 
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STOP! 

doing the 

computer 

disk shuffle with 



DISK CADDY 

A desl< top disk organizer 
Nevee lay your disk on a table 
again. The DISK CADDY is ttie 
best thing to happen to the 
floppy/hard disk Liser since the 
disk drive. 

HoWs up to 6 disks of any type. 
Crafted from cedar. Satisfaction 
guaranteed. 

$7.95 

add $1 for postage (U.S.), $3 for 
postage (outside U.S.) 

A. Cheny Computer Idea Co. 

Box 1113 

Salisbury, MD 21801 

MBSiwCanJ onicn moapHKl b>y phons (30T) S96<U2i 



ENGINEERING TVPE 

SOFTWRRE 

FOR THE VIC 20" 

*DIMENSIOHflL STACK UP 
STD MEM. 0/PRT 9.50 

♦ROTflRV FLOW DIVIDER 
8K EXP 0/PRT 19.50 

♦COMPOSITE BEAMS 
8k EXP 0/PRT 24.50 



HRRRV F. LEONARD 
5356 CHERRVWOOD RD. 
COLUMBUS OHIO. 43229 
PHONE 614/846-1823 



VIC 20 IS a Tradsmarx ot Comniooo^e E»Mi'on'C5 L!d 



kids' corner 



module in future issues of both of 
Commodore's magazines. Is this 
new, magical-seeming electronic 
marvel REALLY going to change 
the way we use our computers? To 
that I would answer an unqualified 
YES INDEED. It will change not 
only how we use them, but also 
what we use them for, where they 
are used, and the people who will 
be able to use them! 

Small children will be able to 
use computers as never before, no 
longer handicapped by their tem- 
porary lack of reading skills. In 
fact, it will now be a breeze for 
them to acquire those very skills, 
with the help of the talking com- 
puter. Witness the program that 
came from Commodore along 
with the speech module: a plug-in 
cartridge that fits in the slot on top 
of the module, and not only says 
the alphabet while prinfing the 
letters to the screen, but also 
contains a game that teaches rec- 
ognition of both upper and lower 
case letters. 

Speaking of handicaps, what 
about children (and adults) who 
have impaired vision or are blind? 
If the module were integrated into 
a word processor, it would give 
them the ability to do schoolwork, 
(or office work) that a braille writer 
couldn't begin to match, not at the 
less than $100 price tag of the 
speech module, anyway. 

It might not be a bad way for 
deaf people to communicate over 
the phone, either. Now don't mis- 
understand me; with a 235-word 
vocabulary the 64 can't really 
carry on a huge conversation, 
but by tying the module into the 
keyboard (the first program my 
husband wrote) it can SPELL 



anything you want it to! 

Commodore programmers are 
already hard at work turning out 
more advanced educational pro- 
grams, including some to teach 
foreign languages. Extended vo- 
cabularies for the module will 
also be available, not to mention 
a man's voice (my husband still 
hasn't gotten over the fact that his 
64 is a female} and a child's voice 
("Hey Molly! Let's play arithme- 
tic!" it might say). 

To the delight of all, Commo- 
dore programmers are also work- 
ing on games that incorporate 
scaa-rry voices like some of the 
ones in the arcades, notably Gorf 
and Wizard of Wor. I don't know 
for sure why the people at Com- 
modore's Speech Technology Di- 
vision chose a woman's voice (I 
forgot to ask in all the excitement), 
but a friend who teaches Special 
Education tells me that there have 
been numerous studies done 
which show that young children 
react more strongly to, and learn 
more easily from, a feminine voice. 

Whatever voice it speaks 
with^man, woman, child or 
storybook hero — I think the talk- 
ing computer has finally come of 
age. I will continue the saga of 
my family and our talking Com- 
modore 64 in future issues, and I 
would like to hear from \;ou, both 
children and adults. Write and tell 
me about your computing experi- 
ences and ideas, talking or other- 
wise. I can't promise to answer all 
your letters (I haven't written my 
mother since 1981) but I will cer- 
tainly read them all, and publish 
the most interesting, thought pro- 
voking or representative ones. C 
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A Keyboard Overlay for Your 
Programmable Function Keys 



by Paul Zander 



If you sometimes can 't 
quite remember what your 
programmable function 
keys are supposed to do in 
different programs, here's 
the solution. A simple 
overlay, labeled with the 
program name and the 
purpose of each function 
key. And you can create it 
right on your printer. 



Recent articles have explained 
the use of the programmable func- 
tion keys on the VIC 20 and the 
Commodore 64. (See the VIC 
Magician, "Using Those Mysteri- 
ous Programmable Function Keys" 
in PowerlPla^, Spring 1983 or 
Commodore, June/July 1982.) 
In addition, several cartridges and 
software products set up these 
function keys to make the com- 
puter easier to use. If you have a 
variety of programs that use spe- 
cial function keys, it may become 
difficult to remember what each 
key does. For instance, "f2" may 
be used to print the contents of the 
screen, GOTO some coordinate, 
or produce a BASIC statement 
such as COLOR. 

You can easily make a very in- 
expensive (almost free) keyboard 
overlay for each of your applica- 
tions that will sit over the function 
keys on the keyboard. You can 
make a different one for each ap- 
plication. It can be constructed 
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from plain paper, cardboard, or 
even thin plastic. Here's what you 
need to do. 

Manual Method 

Obtain a piece of paper (or 
suitable material} at least 3 inches 
wide by 4 inches long. Draw the 
measurements from Figure 1 on 
the paper. You'll be cutting out the 
rectangle in the center to fit over 
the keys. Write the name of the 



application at the top, the function 
key (i.e., fl, f2, etc.) on the left and 
what the key does on the right. 
There's not much room on the 
right side, so you may have to 
abbreviate. Cut out the figure 
along all lines. Place the overlay 
over the function keys and you're 
in business. Don't be discouraged 
if you goof; the overiays are easy 
and cheap enough to redo. 
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Automated Method 

If you write a lot of programs 
that use function keys, you could 



end up with a lot of overlays to 
build. If you have a printer such as 
the 1525E, here's a little program 



SUPER EXPflHUER 



F-1" 
F2~ 

F3- 
F4~ 
F5- 
F6~ 

F?- 
F8- 



iGRfiPHXC 
I COLOR 

IDRFiN 
SOUND 
iCIRCLE 
! POINT 

i PR INT 
ILIST+RTN 



FIGURE 2. Automated Method 



Overlay Program 



to build a very neat, properly sized 
overlay automatically. Just cut it out 
after the form has printed. There's 
an option to "PRINT AGAIN?" 
so that you can make a few spare 
overlays. This program works "as 
is" on both the VIC 20 and the 
Commodore 64. (Figure 2, the 
sample output below, can be used 
with the VIC 20 Super Expander 
cartridge. ) The program will ask 
you to enter a 20-character title 
followed by a 10-character value 
for each of the eight function 
keys. If a key has no value, just 
press return. 

Perhaps someday manufac- 
turers will include plastic overlay 
cards with their products. Some 
may already. Until that time you 
can use one of these two methods 
to make all you want! C 



10 REM FUNCTION KEY OVERLAY PROGRAM 
100 REM 1 2 3 

110 REM. .123456789012345678901234567890 

120 A1$="[CMDR A, SHIFT *28,CMDR S]" 

125 AO$="[SHFT -, SPACE28 , SHFT -] " 

130 A2$="[SHFT - ,SPACE6 ,CMDR A, SHIFT *10,CMDR S,SPACE10, 

SHFT -]" 
140 A9$="[SHFT - , SPACE6 ,SHFT -.SPACEIO, SHFT -,SPACE10, 

SHFT -]" 
150 A3$="[SHFT -, SPACES ,CMDR Z, SHIFT *10,CMDR X,SPACE10, 

SHFT -]" 
160 A4$=" [CMDR Z, SHIFT *28,CMDR X]" 
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170 A5$=" [SPACE20] " 

180 A6$ = "[SPACE10] ": AA$ = " [SPACE9] " 

190 A7$="[SHFT ~,SPACE3]" 

200 A8$=" [SPACES, SHFT -] " 

210 REM " 

220 DIM TA$(8) ,TB$(8) 

230 FOR 1=1 TO 8:READ TA$ ( I ) : NEXT 

240 DATA Fl-,F2-,F3-,F4-,F5-,F6-,F7-,F8- 

300 PRINT" [CLEAR] "; 

310 PRINT"FUNCTION [SPACE] KEY [SPACE] OVERLAY" :PRINT 

320 PRINT" [SPACE3] BY [SPACE] PAUL [SPACE] ZANDER" :PRINT 

330 PRINT"ENTER [SPACE] 20-CHAR [SPACE] TITLE: ": PRINT 

340 INPUT T$: PRINT 

350 T$=MID$(T$,1,20) 

360 T1$=T$+MID$ (A5$,1,20-LEN (T$) ) 

370 PRINT:PRINT"ENTER [SPACE] 10-CHAR [SPACE] KEY" 

380 FOR 1=1 TO 8 

390 PRINT"FOR[SPACE]"TA$(I)" [SPACE]"; :INPUT X$ 

400 X$=""+MID$(X$,1,10} 

410 TB${I)=X$+MID$CA6$,1,10-LEN(X$) ) 

420 X$="" 

430 NEXT I 

440 PRINT 

450 PRINT"READY [SPACE] PRINTER [SPACE] - [SPACE] HIT" 

510 PRINT"ANY [SPACE] KEY [SPACE] TO [SPACE] CONTINUE" 

520 GET A$:IF A$=""THEN 520 

530 OPEN 4,4 

540 PRINT#4,A1$:PRINT#4,A0$ 

550 PRINT#4,A7$+T1$+A8$ 

570 PRINT#4,A0$ 

580 PRINT#4,A2$ 

600 FOR 1=1 TO 8 

610 PRINT#4,A7$+TA$(I)+"[SHFT -, SPACE] "+AA$+" [SHFT -] 

"+TB${I}+" [SHFT -)" 
620 IF I<>8 THEN PRINT#4,A9$ 
630 IF 1=2 OR 1=6 THEN PRINT#4,A9$ 
640 NEXT 

650 PRINT#4,A3$:PRINT#4,A0$ 
660 PRINT#4,A4$:PRINT#4 
670 CLOSE 4 

700 PRINT"PRINT [SPACE] AGAIN? [SPACE] (Y/N) " 
710 GET Q$:IF Q$=""THEN 710 
720 IF Q$="Y"THEN 500 
730 IF Q$<>"N"THEN 700 
800 END 
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Solitaire 



by Robert W. Baker 



This popular card game is designed to 
run on the Commodore 64 or any PET or 
CBM computer. 



The Rules of Solitaire 

This program plays a solitaire game that's a vari- 
ation of Klondike. One regular deck of 52 cards is 
used and 28 cards are dealt into seven rows (piles). 
The first row at the left has one card, the second two, 
and so on up to seven cards in the last row. The 
last card of each row is face up, all the rest are face 
down. On each row you may build in descending 
sequence; red on black or black on red. For exam- 
ple, you can play the ten of hearts on the jack of 
clubs or spades. 

You can move the face-up cards in a row as a unit 
starting at any card. The top card being moved must 
fit in sequence and color with the card it is moved 
onto in the other row. 

When you uncover a face-down card on a row, 
it will automatically be turned up. You are always 
entitled to have seven rows, and if one is entirely 
open you may put a king in the empty space. 

Whenever you free an ace, move it to the ace 
foundations. On the aces you may build up in suit 
and sequence. To win the game you have to build 
each suit up to the king. A card must be the bottom 
card of a row to be played from the rows onto the 
ace foundations. Once played on the ace founda- 
tions, a card cannot be moved to help elsewhere. 

The remaining 24 cards in the deck are used as 
the stock. Every third card may be turned up and the 
deck may be gone through any number of times. 
The top card is available for play to any row or the 
ace foundations. When the top card is played, the 
next card will then be available. 

You win if you can build all four ace foundations 
up to the kings. You lose when you cannot make 
any further plays from the deck or between rows. 



Running the Program 

The program was written to run on any PET, 
CBM or Commodore 64 system. It does not use 
color graphics on the 64, since it was written to be 
compatible with previous systems. It cannot work on 
the VIC 20 with its limited 22-character display line. 
Normal and reverse fields are used to distinguish 
card colors and make it slightly easier to play with- 
out actual colors. 

The game is controlled by keyboard commands 
in response to the main play prompt as follows: 
Press D to play the top cardfrom the deck to the 
aces or any row. Another prompt will ask for the A 
or a row number from 1 to 7. Press C to see the next 
available card in the deck. Press Q to quit the game 
and turn over all face-down cards. 

Enter a row number from 1 to 7 to move cards 
from one row to another or to the ace foundations. 
If the row has more than one face-up card, you'll 
be asked to enter the card value to indicate the top 
card to be moved. Enter A for ace, J for jack, Q for 
queen, K for king, or the face number 2 to 10 for 
the desired card. Once the program knows what 
you want to move, it will ask for the desired place 
to move the cards: A for aces or a row number 
from 1 to 7. 

Any invalid response or illegal play will be 
indicated with an error message and the main play 
prompt will return. You'll have to restart the entire 
play selection at that time. If the play command is 
accepted, you'll have to wait a few seconds while 
the screen is updated. Be careful not to hit the cur- 
sor controls when entering play commands since the 
entire screen is not redisplayed. If this should hap- 
pen you'll just have to restart the game. 

How the Program Works 

Looking inside the game program, the F matrix 
keeps track of each card currently on the playing 
field. Each card is identified by a decimal value from 
1 to 52: 1-13 are hearts, 14-26 are diamonds, 27-39 
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are spades, and 40-52 are clubs. Any card that is 
face down has 100 added to its card value. Thus, 
the program can quickly detect if a card is up or 
down, and can find its suit by dividing the card 
value by 13. 
The S matrix is used to keep track of the ace 



foundations for each suit. The D matrix is the actual 
deck of 52 cards. The S$ matrix contains the graphic 
suit characters for each of the four suits. There 
are comments scattered throughout the program 
so you can get a feel for what is going on where. 
Have fun! C 



Solitaire 



1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1090 
1100 
1110 
1120 
1130 

1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1360 



REM ***************************** 

REM 

REM SOLITARE 

REM 

REM BY: ROBERT BAKER, ATCO, NJ 

REM 

REM ***************************** 

PRINT" [CLEAR, DOWNIO] SHUFFLING CARDS 



PRINT: PRINT: PRINT: PRINT" 
FOR X=l TO VAL(RIGHT$(TI$,2) ) 
R=RND(1) : NEXT X 
DIM F(7,18) ,S(4) ,D{52) ,S$(4) 
S$(l)=" [SHIFT S]":S$(2)=" [SHIFT 

[SHIFT X]:" 

= HEARTS 
= DIAMONDS 
= SPADES 
= CLUBS 



FOR A GAME OF 
I'LL BE READY IN A 



SOLITARE I" 
FEW SECONDS" 



Z] ":S$(3)=" [SHIFT A]":S${4)=" 



REM SUIT#1 
REM SUIT#2 
REM SUIT#3 
REM SUIT#4 



QM$=" ?"+CHR$ (157) +CHR$ (157) +CHR$(157) 



FOR 
FOR 
FOR 
REM 
FOR 



X=0 

X=0 

X=0 
*** 

X = l 



TO 18: 
NEXT X 
: NEXT X 
IN DECK 



F{X,Y)=0: NEXT Y,X 



TO 7: FOR Y=0 

TO 4: S(X)=0: 

TO 52: D(X)=0; 

SHUFFLE CARDS 

TO 52 

R=INT{RND{1)*52+1) : IF D(R)>0 THEN 1240 
D{R)=X: NEXT X 
REM *** DEAL CARDS INTO 
R=52: FOR X=l TO 7: FOR 
F(X,Y)=D(R)+100 
D(R)=0: R=R-1: NEXT Y 
F(X,X)=F(X,X)-100: NEXT X 
REM *** DISPLAY EVERYTHING 
C=3: GOSUB 2730 
REM *** COMMAND INPUT 
PRINT" [HOME, D0WN21] "; 
L=3: GOSUB 3080 



PILES 
Y = l TO 
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jiffies 



1370 


IF S(l)+S(2)+S(3)+S{4)<>130 THEN 1390 


1380 


PRINT"CONGRATULATIONS, YOU WIN !"; GOTO 1510 


1390 


PRINT"D=DECK,R0W#1-7,C=CARD,Q=QUIT; PLAY=" ;QM$ ; : INPUT P$ : 




P=VAL(P$) 


1400 


IF {P>7) OR (P<0) THEN 2360 


1410 


IF P>0 THEN 1840 


1420 


IF P$="C" THEN GOSUB 2900: GOTO 1340: REM NEXT CARD 


1430 


IF P$<>"Q" GOTO 1550 


1440 


REM *** QUITTERl 


1450 


FOR X=l TO 7: FOR y=l TO 18 


1460 


IF F(X,Y)>100 THEN F (X, Y) =F (X, Y) -100 


1470 


NEXT Y,X 


1480 


GOSUB 2830 


1490 


L=3: GOSUB 3080 


1500 


PRINT"SORRY, BETTER LUCK NEXT TIME !!!" 


1510 


PRINT"WANT TO PLAY AGAIN (Y/N) ? " 


1520 


GET P$: IF P$="Y" THEN RUN 


1530 


IF P$<>"N" THEN 1520 


1540 


END 


1550 


IF P$<>"D" GOTO 2360 


1560 


REM *** FROM DECK TO . . . 


1570 


IF D(1)=0 THEN 2370 


1580 


V=DCC): S1 = INT( (D(C)-1)/13)+1 


X590 


IF V>13 THEN V=V-13: GOTO 1590 


1600 


L=l: GOSUB 3060 


1610 


PRINT"FROM DECK TO (A=ACES, R0W#l-7) " ;QM$; : INPUT R$ 


1620 


IF R$<>"A" THEN 1700 


1630 


REM *** DECK TO ACES 


1640 


IF S1<>(D(C)+12)/13 THEN 1670 


1650 


IF S(S1) >0 THEN 2370 


1660 


GOTO 1680 


1670 


IF D(C)<>S(S1}+1 THEN 2370 


1680 


S(S1)=D(C): X=S1: GOSUB 2420: GOSUB 3130: GOTO 1340 


1690 


REM *** DECK TO ROW 


1700 


R=VAL{R$} 


1710 


Y=l: IF (R<1) OR {R>7) THEN 2360 


1720 


IF Y>18 THEN 2370 


1730 


IF F(R,Y}<>0 THEN Y=Y+1: GOTO 1720 


1740 


IF Y>1 THEN 1770 


1750 


IF V=13 THEN 1820 


1760 


GOTO 2370 


1770 


V1=F{R,Y-1) 


1780 


IF Vl>13 THEN V1=V1-13: GOTO 1780 


1790 


IF VOVl-1 THEN 2370 


1800 


S2=INT((F(R,Y-l)-l)/26) : S1=INT { (Sl-1) /2) 


1810 


IF S1=S2 THEN 2370 


1820 


F(R,Y)=D(C): GOSUB 3180: GOSUB 3130: GOSUB 2830: GOTO 1340 
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\ 



1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 

1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 

2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 



INPUT Y$ 



THEN 2360 



THEM Y=Y+1: GOTO 1990 



REM *** FROM ROW TO ... 

y=0: IF F(P,1)=0 THEN 2370 

REM *** SINGLE CARD IN ROW? 

Y=y+1: IF Y>18 THEN 2370 

Y2=F(P,Y}: IF Y2>100 THEN 1860 

IF F(P,Y+1)<>0 THEN 1920 

IF Y2>13 THEN Y2=Y2-13: GOTO 1890 

GOTO 2030 

REM *** FROM WHAT CARD IN ROW? 

L=l: GOSUB 3060 

PRINT"FROM ROW" ;Pj "CARD ( A, 2-10 , J ,Q, K) " ; QM$; 

Yl=VAL(Y$) 

IF Y$="A" THEN Yl=l 

IF YS="J" THEN Yl=ll 

IF Y$="Q" THEN Yl=12 

IF Y$="K" THEN Yl=13 

IF (Yl=0) OR (Yl>13) 

IF Y>18 THEN 2370 

Y2=F(P,Y) : IF Y2>100 

IF Y2>13 THEN Y2=Y2-13: GOTO 2010 

IF Y10Y2 THEN Y = Y+1: GOTO 1990 

R=F(P,Y): L=l: GOSUB 3060 

PRINT"FROM ";: GOSUB 2520 

PRINT" R0W";P;"TO {A=ACES ,R0W#l-7} " ;QM$ ; : INPUT A$ 

REM *** FROM ROW/CARD TO 

S1=INT( (F(P,Y)-1)/13) +1 

IF A$<>"A" THEN 2180 

REM *** FROM ROW/CARD TO ACES 

IF F(P,Y+1)>0 THEN 2370 

IF S1<>(F(P,Y)+12)/13 THEN 2140 

IF S(S1}>0 THEN 2370 

GOTO 2150 

IF F(P,Y) <>S(S1)+1 THEN 2370 

S(S1)=F(P,Y) : F{P,Y)=0: IF F(P,y-l}>100 THEN 

(P,y-1)-100 

GOSUB 3180: GOSUB 2830: X=S1: GOSUB 2420: GOTO 

REM *** FROM ROW/CARD TO ROW 

Q=VAL(A$) 

Z=l: IF (Q<1) OR (Q>7) THEN 2360 

IF Z>18 THEN 2370 

IF F(Q,Z)<>0 THEN Z=Z+1: GOTO 2200 

IF Z>1 THEN 2250 

IF Y2=13 THEN 2300 

GOTO 2370 

V1=F{Q,Z-1) 

IF Vl>13 THEN V1=V1-13: GOTO 2260 



F(P,Y-1)=F 
1340 
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jiffies 



NEXT XI 
PRINT" — ";S$(X): RETURN 

[RVOFF] " ; 



2270 IF Y20VI-I THEN 2370 

2280 S2=INT{ (F(Q,2-l)-l)/26) : S1=INT ( (Sl-l) /2} 

2290 IF S1=S2 THEN 2370 

2300 IF F(P,Y-1)>100 THEN F (P, Y-1) =F (P, Y-1) -100 

2310 F(Q,Z)=F(P,Y) : F(P,Y)=0 

2320 Y=Y+1: Z=Z+1 

2330 IF F(P,Y)<>0 THEN 2310 

2340 GOSUB 3180: GOSUB 2830: GOTO 1340 

2350 REM *** ERRORS! 

2360 PRINT" [RVS] INVALID RESPONSE!": GOTO 2380 

2370 PRINT" [RVS] ILLEGAL PLAY 1 " 

2380 T=TI 

2390 IF(TI-T)<50 GOTO 2390 

2400 GOTO 1340 

2410 REM *** DISPLAY ACES 

2420 PRINT" [HOME, D0WN4]"; 

2430 FOR Xl=l TO X: PRINT" [D0WN2] " 

2440 IF (S(X)=0) AND (X>2) THEN 

2450 IF S(X)=0 THEN PRINT" [RVS ,SPACE2] " ;S$ (X) ," 

2460 R=S{X): GOSUB 2520: PRINT: RETURN 

2470 REM *** DISPLAY CARDS IN PILES 

2480 R=F{X,Y) 

2490 IF R=0 THEN PRINT" ";: RETURN 

2500 IF R>100 THEN PRINT"XXX";: RETURN 

2510 REM *** PRINT CARD 

2520 R1=R 

2530 IF Rl>13 THEN R1=R1-13: GOTO 2530 

2540 IF R<27 THEN PRINT" [ RVS ]" ; 

2550 ON Rl GOTO 2570,2580,2590,2600,2610,2620 

2560 ON Rl-6 GOTO 2630,2640,2650,2660,2670,2680,2690 

2570 PRINT" A";: GOTO 2700 

258 PRINT" 2",-: GOTO 2700 

2590 PRINT" 3";: GOTO 2700 

2600 PRINT" 4";: GOTO 2700 

2610 PRINT" 5";: GOTO 2700 

2620 PRINT" 6";: GOTO 2700 

2630 PRINT" 7";: GOTO 2700 

2640 PRINT" 8";: GOTO 2700 

2650 PRINT" 9";: GOTO 2700 

2660 PRINT"10";: GOTO 2700 

2670 PRINT" J";: GOTO 2700 

2680 PRINT" Q";: GOTO 2700 

2690 PRINT" K"; 

2700 R9=INT( (R-l}/13) +1 

2710 PRINT S$(R9) ;" [RVOFF]";: RETURN 

2720 REM *** DISPLAY ACES & ROWS 



RETURN 
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2730 
2740 

2750 

2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2 940 
2950 
2 960 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 



PRINT" [CLEAR] ROWS -1- -2- -3- -4- -5- -6- -7-" 

PRINT CHR$(17) ;CHR$(17) ;CHR$(192) ;CHR$(192) ;CHR${192) ;CHR$ 

(192) ;CHR$(238) 

PRINT"ACES"; 

FOR XX=1 TO 8: PRINT CHR$ ( 221) ;CHR$ ( 17) ;CHR$ (157) ; : NEXT XX 

PRINT CHR$(221) 

PRINT CHR$(192) ;CHR?(192) ;CHR${192) ;CHR$(192) ;CHR$(253) 

FOR X=l TO 4: GOSUB 2420: NEXT X 

GOSUB 2830 

GOTO 2960 

REM *** UPDATE ROW DISPLAY 

PRINT" [H0ME,D0WN2]"; 

FOR Y=l TO 18 

Y9=Y-11: IF Y<12 THEN Y9=l 

PRINT TAB(4+( (Y9-l)*5) ) ; 

FOR X=Y9 TO 7: PRINT SPG (2);: GOSUB 2480 

NEXT X: PRINT: NEXT Y: RETURN 

REM *** NEXT 3RD CARD IN DECK 

IF D(1)=0 THEN 2960 

C=C + 3 

IF C>24 THEN C=3 

IF D(C)+D(C-l)+D(C-2)=0 THEN C=3 

IF D(C)=0 THEN C=C-1: GOTO 2940 

REM *** UPDATE DECK DISPLAY 

PRINT" [H0ME,D0WN16] DECK [DOWN] " 

PRINT" ": REM 27 SPACES 

PRINT" [UP]"; 

IF D(1)=0 THEN PRINT" ";: GOTO 3020 : REM 3 SPACES IN PRINT 

R=D(C) : GOSUB 2520 

X=0: FOR Y=l TO 24: IF D(Y)<>0 THEN X=X+1: NEXT Y 

PRINT TAB (10) ;" (";X; "CARDS LEFT )" 

RETURN 

REM *** BACK UP LINES THEN CLEAR 



FOR Ll=l TO L: PRINT" [UP] 



NEXT LI 



REM *** BLANK 
FOR Ll=l TO L 
PRINT" 
NEXT LI 

FOR Ll=l TO L: 
REM *** REMOVE 
FOR X=C TO 24: 
IF D(l) =0 THEN 
C=C-1: IF C<1 



LINESl 



REM 39 SPACES 



PRINT" [UP] "; : NEXT LI: 
CARD FROM DECK & DISP 
D(X)=D(X+1) : NEXT X 
3170 
THEN C=3 



RETURN 



IF D(C)=0 THEN C=C-1: GOTO 3160 

GOSUB 2960: RETURN 

PRINT" [RVS] PLEASE WAIT WHILE I FIX THE CARDS 



RETURN 
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Two Cartoons for the VIC 20 



by John StHlwell 



Using programmable 
characters, gou can create 
cartoons that move on 
your unexpanded VIC 20. 



For the last year and a half 1 
have worked as a cameraman for 
a local television show in Madison, 
Wisconsin. Every month the show 
features a different fantasy role- 
playing game. One month it may 
be "Dungeons and Dragons" and 
the next "Top Secret," One thing 
that we lacked was something 
regular along the line of graphics. 
The average show consisted of 
a group of people acting out an 
adventure with few or no props. 
Knowing that I was a computer 
enthusiast, the producer asked me 
to come up with a series of car- 
toons to liven up the show. In the 
past, we had flashed humorous 
messages on the bottom of the 



screen. But he thought computer 
animation superimposed on the 
gamers would be a much better 
eyecatcher. Below are programs 
for creating two of the cartoons 
that I wrote for the show. 

When 1 started on this project, 
I intended to make one cartoon 
for every subject the show might 
touch. One of the subjects was sci- 
ence fiction, 1 didn't have to think 
very long before 1 made the obvi- 
ous choice. For every computer 
there is a program that displays a 
picture of the star ship Enterprise. 
It's become a status symbol. My 
version of this classic idea has the 
Enterprise flying over a planet. If 
you want the ship to fly by auto- 
matically, then change line 470 
into a delay loop. 

The second cartoon premiered 
on a "Boot Hill" adventure. The 
gunslingers demanded to see the 
sheriff. Who was I to refuse them? 
The animation that appeared over 



the air was not quite what they 
expected. 

Both programs work on the un- 
expanded VIC 20. Line 10 sets the 
pointers so that the program won't 
write over the character set. Lines 
20 to 70 set up the new character 
set. The final pictures are made up 
of several characters. The last part 
of the program puts these charac- 
ters together like the pieces of a 
puzzle. Then individual pieces are 
replaced giving the illusion of mo- 
tion. In the Enterprise program, 
this is accomplished by lines 450 
to the end. While in the Sheriff 
program, this starts at line 370. 
With both programs, when a pic- 
ture appears, push any key to start 
the action. 

If you do not want to type these 
programs in, send me $3 and I will 
be very happy to send you a tape 
with them on. My address is 5018 
Marathon Drive, Madison, Wis- 
consin 53705. C 



Sheriff 



10 POKE 36879, 27:X=27:POKE 52,X:POKE 56,X:POKE 51,PEEK(55) 

:CLR 
20 CS=256*PEEK{52)+PEEK(51) 

30 FOR I=CS TO CS+511:P0KE I , PEEK (H-32768-CS) : NEXT 
40 READ X:IF X<0 THEN 60 

50 FOR I=X TO X+7:READ J:P0KE I , J: NEXT :G0T0 40 
60 POKE 36869,255 
70 GOTO 370 

80 FOR 1=1 TO 50:NEXT:RETURN 
90 DATA 7168,0,0,0,0,0,0,1,1 
100 DATA 7176,0,0,15,16,16,240,16,255 
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110 DATA 7184,0,0,240,8,8,124,130,255 

120 DATA 7192,27,0,56,2,12,0,15,240 

130 DATA 7200,120,120,120,80,16,32,192,124 

140 DATA 7208,3,12,48,67,68,72,72,40 

150 DATA 7216,8,5,2,2,130,130,130,130 

160 DATA 7224,130,1,81,241,81,17,17,17 

170 DATA 7232,62,80,86,3,7,3,3,3 

180 DATA 7240,130,130,130,130,135,255,151,32 

190 DATA 7248,17,17,17,14,22,254,71,39 

200 DATA 7256,3,3,3,0,0,0,0,0 

210 DATA 7264,64,128,135,133,133,132,132,132 

220 DATA 7272,23,15,8,8,4,132,130,66 

230 DATA 7280,0,0,0,0,0,0,7,7 

240 DATA 7288,252,252,253,253,255,255,255,238 

250 DATA 7296,68,248,248,240,224,240,254,126 

260 DATA 7304,0,0,0,0,7,3,3,3 

270 DATA 7312,15,48,192,7,24,224,0,0 

280 DATA 7320,48,24,14,15,27,24,0,0 

290 DATA 7328,4,4,12,31,63,0,0,0 

300 DATA 7336,1,27,62,31,11,0,0,0 

310 DATA 7344,8,12,14,15,15,0,0,0 

320 DATA 7352,0,0,2,7,15,28,6,3 

330 DATA 7360,0,0,16,15,15,12,8,8 

340 DATA 7368,0,0,8,15,15,30,50,32 

350 DATA 7376,0,2,124,31,15,4,0,0 

360 DATA 7424,0,0,0,0,0,0,0,0,-1 

370 PRINT" [CLEAR, RIGHT9, D0WN15] @AB[D0WN,LEFT2]CD [DOWN, 

LEFT3] EFG[D0WN,LEFT3] HIJ [DOWN, LEFT3 ] KLM [DOWN, LEFT3] 

N0P[UP3] " 
380 GET A$:IF A$=""THEN 380 
390 PRINT" [RIGHT9JQ [UP,LEFT2] ZR" 
400 FOR 1=1 TO 2000:NEXT 

410 FOR X=l TO 3:PRINT" [UP,RIGHT8]S":G0SUB 80 
420 PRINT" [UP, RIGHT8]T":G0SUB 80 
430 PRINT" [UP, RIGHTS] U" 
440 PRINT" [UP, RIGHT8JV" 
450 PRINT" [UP, RIGHT8]W" 
460 PRINT" [UP, RIGHT8]X" 
470 PRINT" [UP, RIGHT8]Y" 

480 PRINT" [UP, RIGHT8] Z" :G0SUB 80:GOSUB 80:GOSUB 80 
490 NEXT X 
500 PRINT" [RIGHT9]H[UP,LEFT2, SPACE] E":GOTO 380 



GOSUB 


80 


GOSUB 


80 


GOSUB 


80 


GOSUB 


80 


GOSUB 


80 


GOSUB 


80 
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Jiffies 



Enterprise 



140 

150 
160 
170 
180 
310 
315 
333 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
605 



POKE 

:POKE 

CS = 25 

FOR I 

READ 

FOR I 

POKE 

GOTO 

FOR I 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



36879, 27:X=PEEK(56)-2:P0KE 52,X:P0KE 56, X 
; 51,PEEK(55) :CLR 
6*PEEK(52)+PEEK(51) 

=CS TO CS+511:P0KE I , PEEK ( I+32768-CS) : NEXT 
X:IF X<0 THEN 310 

,=X TO X+7:READ J : POKE I , J: NEXT :GOTO 170 
36869,255 
700 




55,255 
255,255 



NOTE: In line 710 the [\]: should be entered as 
bracket, slash, bracket. 
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610 DATA 7392,3,7,15,15,15,15,31,31 

615 DATA 7400,255,255,255,255,255,255,255,255 

620 DATA 7408,223,223,254,254,254,252,252,252 

625 DATA 7416,224,128,0,0,0,0,0,0 

630 DATA 7424,127,127,127,127,15,15,7,3 

635 DATA 7432,240,248,252,254,254,255,255,255 

640 DATA 7448,0,0,0,0,0,128,192,224 

650 DATA-1 

700 PRINT" [CLEAR, BLUE] " 

710 PRINT" [HOME,DOWN20,RIGHT6]NMOPQR[DOWN,LEFT7]STUVWXYZ# 
[DOWN,LEFT10] [\] ' [RVS ,SPACE3 ,RVOFF, SPACE] ] ! [UP4] " 
GET A$:IF A$=""THEN 714 
GOSUB 930:PRINT" [BLACK,RIGHT19 J " ; 

PRINT"@";:GOSUB 1000 : PRINT"@A [LEFT] "; :GOSUB 1000 
:PRINT"@AB[D0WN,LEFT]H[UP,LEFT2] "; :GOSUB 1000 
PRINT"@ABC[D0WN,LEFT2]HI [UP,LEFT3] "; :GOSUB 1000 
:PRINT"@ABCD[D0WN,LEFT3] HIJ [UP,LEFT4] "; :GOSUB 1000 
PRINT"@ABCDE[D0WN,LEFT4]HIJK [UP, LEFTS] "; :GOSUB 1000 
:PRINT"@ABCDEF[D0WN,LEFT5]HIJKL [UP,LEFT5] "; :GOSUB 1000 
FOR K=13 TO 1 STEP-1:G0SUB 930:FOR J=l TO K 
:PRINT" [RIGHT] "; :NEXT J:G0SUB 900:NEXT K 
GOSUB 930 :PRINT"ABCDEFG [DOWN, LEFT6] HIJKL [RVS ,SPACE2, 
UP,LEFT,SPACE]":G0SUB 1001:GOSOB 930 
:PRINT"BCDEFG[DOWN,LEFT6]HIJKL[RVS,SPACE2,UP,LEFT, 
SPACE]" 

GOSUB 1001: GOSUB 930 : PRINT"CDEFG [DOWN, LEFT5 ] IJKL [RVS , 
SPACE2, UP, LEFT, SPACE] ":G0SUB 1001:GOSUB 930 
:PRIKT"DEFG[D0WN,LEFT4] JKL [RVS ,SPACE2 , UP, LEFT, SPACE] " 
GOSUB 1001:GOSUB 930 : PRINT"EFG [DOWN, LEFT3] KL [RVS, 
SPACE2, UP, LEFT, SPACE] ":GOSUB lOOlrGOSUB 930 
:PRINT"FG[D0WN,LEFT2] L[RVS,SPACE2, UP, LEFT, SPACE] " 
:G0SUB 1001 

GOSUB 930:PRINT"G [DOWN, LEFT, RVS ,SPACE2 , UP, LEFT, SPACE] " 
:GOSUB 1001:GOSUB 930 : PRINT" [RVS , SPACE] " 
GOTO 714 

PRINT" [LEFT] @ABCDEFG [D0WN,LEFT6] HI JKL [RVS , SPACE, UP, 
SPACE] ":G0SUB 1001: RETURN 

930 PRINT" [H0ME,D0WN15] " ; : RETURN 

1000 PRINT" [LEFT2] " ; 

1001 FOR 1=1 TO 100:NEXT:RETURN 



714 
720 
722 

724 

726 
732 

735 



736 



737 



738 

750 
900 
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Write For Free Vic Cataiog 



VIC 



TM 



NEW 
Software VIC/ 



Write For Free 64 Catalog 

TM ^M 



VISA' 





PARATROOPER! 




MOW 




ALIEN 
INVASION 



^< 






SNAKE OUT 



CRICKET - From the company that brought you Asteroidz. Munchman and a host of other 
blockbusters We now present CRICKET. This js a challengina game with a cost of characters you 
will love and hate. All you have to do is get Cherp (rom one side of the road to the river and then 
across the river. Not so fast though. First you havt; to figure out how to dodge the traffic and get to 
the center. Then how are you going to get across the riverV Look here comes a log — even a turtle. 
Hitch a ride across the river and jump from one to the other. Keep a sharp eye out for Ade the Gator, 
He loves to have crickets for lunch. How many limes can you gel across the road and river. You will 
have to work as fast as you can. Time limil and txmus. You will find this game addictive and 
challenging and it will entertain you with hours of fun and enjoyment, $14.95 

BUG BLAST - If you think Centipede was fun — look out for BUG BLAST. A new and fast action 
arcade game with realistic smooth action, quality hi res graphics and trouble. Its very calm as the 
first wave attacks. Only a few bugs to kill. Just shoot thru the cactus and wipe them out. After a few 
attacks you feel you have everything under control. Now the attacks really start. Those protection 
areas have to go. Blast away. Will they ever slop? OK — the BUGS got me this time. Now its my 
turn, Just one more time — BUG BLAST - Now its your turn to get even. 514,95 

BOIVIB'S AWAY - Can you stop him? The crazy bomber drops the bombs from the top of the 
screen. You get 3 buckets to catch them. Before you know it bombs are falling so fast you wonder 
when he will stop. Just when you think you have him under control your bucket gets smaller. Is your 
hand quicker than your eye? Special S9.95 

PARATROOPER - You are (he only one left to slop them. The sky is lull of enemy choppers. 
Paral roopers keep dropping into your area with no n stop barrage of enemy troops. They are out to 
destroy you. This new game is an unbeatable blend of arcade action and quick thinking strategy. 
You must make every shot count — don't be to fast on the trigger. Every time you hit a chopper or 
paratrooper you get extra fjoints. Wait until you see the climax of this game — you won't believe it! 
This is a multiple skill level game with razor sharp graphics and sound. $19.95 

MOW - Get ready for the fast and furious action of the craziest mower you have ever seen. How 
much grass can you cut? Joystick moves your mower around as fast as you dare. Watch out for 
granny's dafodils and grandpa's radio antenna. $14.95 

COSMIC CRUZER ■ Bring the coin op game into your VIC. 3 Scenarios. Your Cruzer moves over 
a mountainous landscape & into a tunnel of surface to air missle, silus and ground ■ to air 
weapons. If you can make it in and out of the tunnel you fly into the asteroid field. Drop bombs and 
fire missiles at the fuel dump>s to keep your fuel supply up. If you are really good you can get to the 
base and try, to destroy it. We don't know of any one that has hit the base yet. Maybeyouwillbethe 
1st. Cosmic Cruzer is a fun filled magnificently rendered home video game that will last for months 
of challenge. Highly addicting. Hi Res Graphics, Color & Sound. SPECIAL PRICE - SM.95 

SPACE PAK - Can you survive? 3 space games with the sights and sounds of arcade games. The 
excitement builds as the action is unending. Blast away at everything in sight. The alien attacks will 
stop at nothing to destroy you. Prepare for battle, there is no escape, unless you can help. Can you 
survive? Hi Res, Color, Graphic & Sound. Joystick or keyboard. $19,95 

ALIEN INVASION - Invaders from space are attacking your home planet. Hurry and man your 
lasers and prepare your robot forces for the inevitable attack of the Alien Invaders. The excitment 
builds as you command a battery of missile bases in a bunker. Each invader has a laser aimed right at 
you. Will they ever stop. Only you can save the Galaxy. You can compete with 4 people in the solar 
system There are 20 levels of play. If you destroy the Aliens in the correct order you will receive 
bonus points Can you get the top score? S14.95 

TARGET COMMAND - The whole West Coast is being bombarded and only you can save it . You 
are at the controls of the missile launcher and hold the destinyofourcountryin your hands. It takes 
a cool head, not hand and fast reflexes to zap those missiles right oul of the air. Get ready to 
pulverize — atomize and vaporize them. Oh, my God, those warheads are heading right for our 
ammo dumps. They are everywhere, NO ONE CAN SAVE US - EXCEPT YOU, You must move 
your laser into position and fire as fast as you dare. Time limit with arcade style excitement. Protect 
your ammo at all costs, 10 levels of play. $14.95 

SNAKEOUT - Slip your snake into position and score by chomping the blocks. Watch the way you 
slither because your escape routes get smaller. 2 Bonus games included. $14.95 

HEAD-ON - Please do not buy this game if you are the type that says Til play it just one more time". 
Players have been known to start playing HEAD ON at 8:30 p.m. and at 2 a.m., wonder where the 
time went? Have you ever tried to explain to someone why you played a game for five and a half 
hours. We know of no remedy for the addiction to HEAD ON except to beat the VIC on level 9. No 
one has done it, YET, will you? We think not. Move your car as last as you can dare around the 
tracks. You get 3 cars and MUST avoid the computer car. Points for the most dots covered. Bonus 
cars, nine levels of play. 'vic ^ 6.i m- rwir-ii-n-n Njoamrk-. ,,r Cimmnirj,,- eiectronic 514.95 
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programs 



Hexterminator II 



by George Currie 



Type and save this 
game program for the 
unexpandedVIC20. 



You have just defeated the evil 
planet HEX. You must keep the 
little Hexcans from escaping past 
you. These Hexcans can hurt 
you only by hitting you. They 
come down either diagonally or 



straight. You must shoot the Hex- 
cans as quickly as possible be- 
cause the higher up you shoot 
them the more points you get. If 
you let one go by you lose points. 

There is only one thing that 
keeps you from totally eradicat- 
ing their race — the HEXTER- 
MINATOR ship. He comes out 
every once in a while at the top 
and attempts to blast you. He will 
always shoot you if you are under 



him, and the higher your score 
the greater your chance of being 
blasted. You can't shoot him (at 
least it's never been done), be- 
cause he is too quick. But, be- 
cause he moves two spaces every 
time, there is an escape from him. 
You have three lives. Press F-1 
for a one-player game, F-3 for two 
players, F-5 for the top nine high 
scores. The cursor keys move you 
and the letter Z fires your ray. C 



Hexterminator 11 



RETURN 



;SPACE] 00 



P2 = 



REM HEXTERMINATAR II MCMLXXXIII HEX 

4 DEF FN L{P)=-{P=23 AND A<8185) + {P=31 AND A>8164) 
:DEF FN K(Z)=Z/3500:GOTO 1000 

5 PRINT T$(G) "[WHITE] "SC(G)" [LEFT, SPACE2]":RETURN 

6 PRINT T$(G) " [WHITE, DOWN] "LEFT$(L$,L{G) )" [SPACE2] " 

7 PRINT" [HOME, RIGHTS, CYAN] "HS% (1) :RETURtJ 

8 A$=" [SPACES] ":B$=" [SPACE4] ": IF P2=l THEN A$=" 

[SPACE2] ":B$="###" 

9 PRINT" [HOME, WHITE, SPACE] 00 [SPACE2] "TAB (16) A$ 
rPRINT" [HOME, DOWN, SPACE] ###"SPC (13)B$:RETURN 

100 V=36878:S2=36877:S1=36875:B=0:GOSUB 450:G=1; 

:A=8175:P0KE A,35:IF P=47 THEN P2=l 
120 FOR T=l TO 2:SC(T}=0:L{T)=3:NEXT:L$="[SPACE] 

:GOSUB 8:G0SUB 6 : GOTO 250 
150 P=PEEK(197) :POKE A,32:A=A+FN L(P):POKE A,35:POKE A+Q , 1 

:ON-(P=33)-2* (P<>33)GOTO 200,255 
200 D=A:F=D:X=. :POKE V,15:SS=250 
203 X=X+1:IF X=20 THEN X=0:GOTO 225 
205 SS=SS-1:P0KE S2 ,SS :F=F-22 : IF F=R THEN SC{G)=SC{G1 

:R=. :BB=1:G0SUB 5:G0T0 220 
207 POKE F+Q,2:P0KE F,37:GOTO 203 
220 POKE P,38:POKE S1,220:POKE S2,190:FOR T=10 TO 15 

:POKE V,T:FOR 1=1 TO 30:NEXT I,T 
225 POKE S1,.:P0KE S2,.:F0R T=D TO F+22 STEP-22 :D=D-22 

:P0KE D,32:NEXT:ON BB+1 GOTO 255,250 



###" 



+ 33 
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pragranis 



250 BB=0:Z=SC(G) :IF RND(1)<FN K(Z)THEN B=2:G0T0 400 

251 CH=36:LI=8185:MI=. :IF RND(1)>.5 THEN R=7746+INT (RND (1 
)*22)+l:U=22:CO=4:GOTO 255 

253 U=23:W=INTCRND(1)*20)+1:R=E%{W) :C0=5:IF W>10 THEN U=21 
255 POKE R,32:R=R+U:SC(G)=SC(G)-1:IF R>LI OR R<MI THEN GO 

SUB 5: GOTO 250 
260 POKE R+Q^CO;POKE R,CH:IF R=A THEN 300 
263 IF A-R=418 THEN 420 
265 GOTO 150 
300 GOSUB 5:P0KE A,39:POKE S2,210:FOR T=15 TO STEP-1 

:P0KE V,T:F0R 1=1 TO 75:NEXT I,T:POKE S2,. 
305 L(G)=L{G)-1:IF L{G)=.THEN 355 
320 IF G=2 THEN G=1:G0T0 340 
325 IF G=l AND P2=l THEN G=2 
340 PRINT" [HOME, DOWN9,RIGHT6, WHITE] PLAYER"G"UP" 

:FOR T=l TO 7500:NEXT 
350 GOSUB 450:GOSUB 6 :A=8175 :B= . : POKE A,35:GOTO 250 
355 DP=1:IF L(1)=.AND P2=.THEN FL=1 
357 IF P2=l AND L (2)=. THEN DP=2:FL=1 
360 PRINT" [HOME,DOWN9,RIGHT2] PLAYER"DP"GAME [SPACE] OVER" 

:FOR T=l TO 5000:NEXT:IF FL=.THEN G=2:G0T0 350 
370 FOR J=l TO G:F0R T=l TO 9: IF SC ( J) <HS% {T) THEN NEXT 
373 FOR 1=9 TO T STEP-1 : HS% ( I+l) =HS% ( I ) :NEXT :HS% (T) =SC ( J) 

iNEXT J:FL=. :GOTO 520 
400 CH=40:CO=3:LI=7767:MI=7746:IF RND(1)>.5 THEN R=7746 

:U=2:G0T0 255 
403 R=7767:U=-2:G0TO 255 
420 SS=235:P0KE V,15:F0R T=R+22 TO A STEP 22:SS=SS-1 

:P0KE S2,SS:P0KE T,37:P0KE T+Q, 7 : NEXT: GOTO 300 
450 FOR T=7746 TO 8185:POKE T, 32 : NEXT: RETURN 
520 GOSUB 7:G0SUB 450 :A$=" [HOME ,D0WN14] " 

: PRINT" [HOME,DOWN4,WHITE,SPACE5] HIGH [SPACE] SCORES 

[DOWN]" 
523 FOR T=l TO 9:PRINT LEFT$ (A$., T + 6) SPC (6) T"-"HS% (T) : NEXT 

:FOR T=l TO 7000 :NEXT : GOSUB 450:GOTO 630 
604 FOR T=l TO 9 : HS% (T) =500 : NEXT : DIM E% (20) :X= . :G=1 

:T${1) =" [HOME] ":T$ (2) =" [HOME ,RIGHT16] " 
610 FOR T=7746 TO 7944 STEP 22 : X=X+1 : E% (X) =T: NEXT 

:FOR T=7767 TO 7965 STEP 22 :X=X+1 : E% (X) =T: NEXT 
620 GOSUB 8:T=0:Q=30720:FOR T=7724 TO 7745 STEP 2 

:P0KE T,41:P0KE T+Q,7:P0KE T + l,42:POKE T+H-Q,7:NEXT 
62 7 GOSUB 7 
630 PRINT" [HOME, D0WN4 , WHITE, SPACE3] HEXTERMINATAR [SPACE] II" 

iPRINT" [D0WbI2] Fl [SPACE] = [SPACE] START [SPACE] 1 [SPACE] 

PLAYER [DOWN, SPACE3] F3 [SPACE] = [SPACE] START [SPACE] 2 

[SPACE] PLAYER" 
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633 PRINT" [H0ME,D0WN11]F5[SPACE]= [SPACE] HIGH [SPACE] SCORES" 
: PRINT" [H0ME,D0WN13] USE [SPACEJCRSR [SPACE] KEYS [SPACE] 
TO [SPACE] MOVE [DOWN, SPACE9] Z=FIRE 
635 P=PEEK(197) :ON-(P=39)-2* (P=47)-3* (P=55)GOTO 100,100, 

520 
645 GOTO 6 35 
1000 POKE 56,28:POKE 36869 , 255 : FOR 1=7168 TO 7679 

:P0KE I,PEEK(H-25600) :NEXT 
1010 FOR T=l TO 8:READ X:F0R L=X TO X+7:READ Y:POKE L,Y 

:NEXT:NEXT:PRINT" [CLEAR] ":POKE 36879, 15 :GOTO 604 
1015 DATA 7448,24,36,24,24,102,60,102,102,7456,68,130,124, 

214,124,68,56,198 
1020 DATA 7464,24,24,24,24,24,24,24,24,7472,122,224,2,234, 

213,123,146,202 
1025 DATA 7480,8,42,20,34,85,34,8,62,7496,0,255,104,107,8, 

107,104,255 
1030 DATA 7488,129,90,60,90,60,36,90,60,7504,0,255,93,235, 

247,235,93,255 



TM 



VIC-20 ..- Commodore 64 

EXPRNDER BDHRDB 



A Slot lor tha 64. Toggle awitchos nnd 
rest?! !iwil(;h 



P/N CG4 



'69.95 



PTI offers the finest selection 
of expander boards available 
for the VIC-20 and CBM 64. 
Tfie design features, quality 
construction, and competitive 
prices make any of them an 
exceptional value. New pro- 
ducts are being added monthly. 
so write for complete catalog. 





6 SiDl lor Ihf VIC Toggle lyritchot Slot lorlh* VIC No switches, (esel.oi 

P/N V36 *79.95 P/N V13 '49.9S 





4 SloMoF tht VIC Togglflvw^tChosand 3 Slol for th« Vic. Sli(j& jiAiEch^s. no 

rt"Set swilcii reset switch 

P/N V24 *€9.95 P/N V23 '59.95 

VIC 20 and Commodore ©4 arc (rgdemarKs of Commodore Electronics Ud. 



PRECISION TECHNOLOGV. INC. 
COMPUtEH PRODUCTS DIVISION 



SftLT L«KE CITV, UTSH SJ115 
liOlj 4S;.62Q6 



See your dealer, or place 
your order direct 

VISA-M/C-CHECK-COD 




Cave Adventure 
for the VIC-20 

Restore Wealth and 

Happiness to the 

Small Village 

of Windsor 

S14.95 



For the VIC-20: 



Burgef & Friei Kisi-aClion joy- 
stick game Eat the fries and 
burgers but avoid the shake? 
lor a lop scori; S1^ 9b 

For the Commodore 64: 

Space Raider An am^zins 
arcade simulation. Your mission 
IS to destroy tfie enemy ships. 
SI 9.95 

ABC Fun Part a' a series ot ed- 
ucational programs tor pre- 
school aged children S9.95 
Sprite Editor The easy way to 
create, copy, alter, and save up 
to 224 sprite shapes 524 95 
Cfoss Reference Generator for 
BASIC programs Displays line 
numoers in v/hrch any word of 
BASIC vocabulary appears. 
Allows you to change variable 
name and ask for lirtes where It 
appears, and more S19 95 



File Organiier Creates Data 
Base storage system Useful for 
mailing lists, club rosters, checlt 
books, etc. 529.95 
Spread Sheet Powerful calcu- 
lation and report formatting 
capabilities. Memory divided 
into grid: 26 rows by tO col- 
umns. 534 95 

Dissassembler Familiar with 
6502 assembly code? This will 
decode ROM or help debug 
RAM 51995 

Super Roller Challenging dice 
game with sprite graphics and 
sound, yahtzee-style rules of 
play 514.95 

Catalos fvailsble *!^ ^^p^ 

dealer inquiries invited ^^ ^^ 
PHONE ORDERS: (703) 491-6502 
HOUHS: 10 a.m. to 4 p.m. Mon.— Sst. 



fofnmcKdciff 6^ jinc] vlt-^0 j'f rf^iitr'nl friKftmar^i of Comniocloif Eke 



Virginia Micro Syitcmt 
13646 itff Oavii Hwy 
Wood bridge, VA ai1»1 
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pragramss 



Chcck-64 



by Ron Cohen 



This program was written as a response to the 
increasing demand for user- friendly, practical pro- 
grams for home use on the Commodore 64. It will 
manage your checkbook, given the prop>er inputs. 

Withdrawals should be input as negative num- 
bers. All user input should be numeric, except for 



the memo, which can be up to 15 characters. 

The program will mn on the VIC 20 as well, if 
you take out the POKEs in line 30 and adjust the 
checkbook output section so it spans 22 columns 
instead of 40. C 



Check-64 



10 
20 
30 
40 
50 
51 
52 
53 
54 
55 
60 
70 



DIM A$ (4,10) 

PRINT" [CLEAR, BLACK) " 

POKE 53281^1:POKE 53280 , 2 : PRINT 

PRINT" [DOWNS, RIGHT71COMMODORE-64 [SPACEJCHECKBOOK" 



FOR 
REM 
REM 
REM 
REM 
REM 



1=1 TO 2500 :NEXT:PRINT" [CLEAR] ":GOSUB 500 
******************************* 

* INITIALIZATION * 

* AND * 

* SETUP * 
******************************* 

A$ ( 1 , 1 ) ="MEMO" : A$ ( 2 , 1} ="CHK . [SPACE ] #" 
A$C3,1)="AMT." 
80 INPUT"STARTING [SPACE] BALANCE [SPACE] $";A$ (4 , 1) 
90 INPUT"# [SPACE] OF [SPACE] ENTRIES" ;N 
100 PRINT A$(1,I)TAB(15)R$(2,1) " [SPACE2]"A$(3,1) " [SPACES] 

BALANCE" 

REM ****************************** 

REM * INPUT DATA * 

REM * AND * 

REM * TRANSACTIONS * 

REM ****************************** 

FOR J=2 TO N+1 

1 = 1 

PRINT"TRANSACTION [SPACE] # [SPACE] " J-1 

INPUT"MEMO";A$(I, J) 

1 = 1 + 1 

INPUT"CHK. [SPACE]#";A$(I,J) 

1 = 1+1 

INPUT"AMOUNT [SPACE2] $" ; A$ { I , J) 

REM ****************************** 

REM * CONVERT DATA * 



101 
102 
103 
104 
105 
110 
120 
130 
140 
150 
160 
170 
180 
181 
182 
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y 



\ 



183 
184 
185 
190 
200 
210 
215 
216 



217 
220 
221 
222 
223 
224 
230 

235 

240 

250 

260 
270 

275 

276 
280 
285 

300 
400 
401 
402 
403 
404 
500 

505 

510 



REM * AND * 

REM * COMPUTE BALANCE * 

REM ****************************** 

X=VAL(A${I,J) ) 

Y=VAL(A${4,J-1) ) 

A$(4,J)=STR$(Y+X) 

IF VAL(A$(4,J) )<>0 THEN 217 

PRINT" [CLEAR, DOWN 4] YOU [SPACE] HAVE [SPACE] NO [SPACE] 

MONEY [SPACE] LEFT. . .DEPOSIT [SPACE] SOME! " 

:FOR 0=1 TO 5000:NEXT:PRINT" [CLEAR] 

IF VAL(A$(4,J) )<0 THEN GOTO 285 

NEXT J 

REM ******************************* 

REM * CHECKBOOK * 

REM * OUTPUT * 

REI4 ******************************* 

PRINT" [CLEAR, DOWN] "AS ( 1 , 1) TAB (15) A$ (2 , 1} " [SPACE2] 

"A$(3,l)" [SPACE5] BALANCE" 

PRINT" [SHFT 0,CMDR Y14,SHFT 0,CMDR Y5,SHFT 0,CMDR Y6, 

SHFT P,CMDR Y10,SHFT P] " 

FOR J=2 TO N+1 

PRINT A? < 1 , J) TAB ( 15) A$ ( 2 , J } TAB ( 22 ) AS ( 3 , J ) TAB ( 30 ) AS ( 4 , 

J) 

PRINT:NEXT J 

PRINT" [SHFT L,CMDR P14,SHFT L,CMDR P5,SHFT L,CMDR P6, 

SHFT @,CMDR P10,SHFT @]" 

PRINT"STARTING [SPACE] BALANCE [SPACE4] FINAL [SPACE] 

BALANCE" 

PRINT TAB(4) "$"A$ (4 , 1) TAB (24) "$"AS(4,J-1) 

END 

PRINT" [CLEAR, DOWNS, BIGHT6] INSUFFICIENT [SPACE] FUNDS" 

:FOR DE=1 TO 5000:NEXT DE 

PRINT" [CLEAR] ":GOTO 120 

REM ******************************* 

REM * CHECKBOOK * 

REM * PROCEDURE * 

REM * INSTRUCTIONS * 

REM ******************************* 

PRINT" [DOWN5,RIGHT2] INPUT [SPACE] WITHDRAWALS [SPACE] AS 

[SPACE] NEGATIVE [SPACE] NUMBERS" 

PRINT" [D0WN2 , RIGHT2] INPUT [SPACE] NUMBERS [SPACE] ONLY 

[SPACE] EXCEPT [SPACE] FOR [SPACE] MEMOS" 
FOR DE=1 TO 6500:NEXT:PRINT" [CLEAR] ":RETURN 
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book reuiew 



Machine Language for Beginners 



by Richard Mansfield 
Published by COMPirTE! Books 
Reviewed by Danny Byrne 



"There are going to be a million machiriG lan- 
guage programmers out there!" was my first reac- 
tion when 1 finally broke down and bought another 
book on machine language, after swearing "Never 
again!". 1 just wish that Machine Language for Be- 
ginners had been released a few months earlier. 
It might have saved me a lot of hair pulling and 
agonizing moments, trying to learn things that most 
of the other books assumed 1 already understood. 
Not to mention the money 1 might have saved (well 
over $100 worth of ML books clutter my shelves). 

Machine Language for Beginners by Richard 
Mansfield, is just that: FOR BEGINNERS. Although 
there are several very well written books on pro- 
gramming with the 6502 instruction set in machine 
language, they all pre-suppose an intimate knowl- 
edge of your computer's innards and of the micro- 
processor. So where in the world does a beginner 
go to obtain this arcane knowledge? After all, these 
days people usually buy computers with keyboards 
and built-in languages that don't require knowledge 
of a particular microprocessor's instruction set Years 
ago, when computers were as big as horses and 
could only be programmed via a maze of switches, 
machine language was the standard, mainly be- 
cause BASIC, COBOL, etc., were not invented yet. 
Unfortunately, most of the fellows who have been 
writing 6502 machine language books seem to think 
that most of their readers were introduced to com- 
puters during that era, and for the average person to 
learn ML from them, the bookstores need to retail 
an instructor on a neighboring rack! Until they do, 
1 highly recommend Machine Language for Begin- 
ners as your first introduction to the world of ma- 
chine language. 

The best way to use Mansfield's book is to begin 
at the beginning, even if you already understand 
some machine language concepts. The author in- 
cludes many analogies to aid in understanding exactly 
what is happening inside the microprocessor. For 
instance, in Chapter 2 he writes: "The difficulty of 



learning ML has sometimes been exaggerated. 
There are some new rules to learn and some new 
habits to acquire. But most ML programmers would 
probably agree that ML is not inherently more 
difficult to learn than BASIC." 

Because so many people who buy computers 
today are using some version of BASIC, the author 
has included a section on BASIC commands and 
their machine language equivalents. This is the sec- 
tion that I find the most pleasing. After all, the best 
way to learn anything is to find its relational aspects, 
and believe me, BASIC is more than just related to 
machine language — it was written with it. 

One of the hardest BASIC concepts for me to 
learn, way back when (1982), was FOR-NEXT 
loops and time delays. It took awhile to understand 
what nesting was and that looping was another form 
of indexing. When [ saw the same FOR-NEXT- 
STEP statement in this book I thought to myself 
"Not again!" But after I read a little it soon became 
clear. Once 1 understood the BASIC version, it was 
only a matter of redefining a few rules. The ML ver- 
sions work the same, in principle, except you're 
using registers for the counter variable. At first, the 
idea of addressing might seem strange or difficult, 
but with a little practice using the examples it will 
soon become second nature to you. 

Included are memory maps for most computers 
that have 6502 CPUs, as well as an assembler, dis- 
assembler, and ML moniter that can be typed in. 
Computer- specific adjustments are explained. Typ- 
ing in each of these will give you the necessary tools 
to put you well on your way to writing ML pro- 
grams. The author does not belittle the importance 
of BASIC, but points out that wherever you need 
speed in your programs, use ML, The mixture of 
the two will enhance your skills at producing power- 
ful programs. 

In closing, all I can say is READ ON (if only it had 
been out sooner. . .) 

C 
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stimulating Simulations 
for the VIC 



byC.W.Engel 
Published by Hayden Publishing 
Reviewed by Jim Gracely 



Stimulating Simulations for the VIC is 
available from Commodore as pari of a 
four-book set that is excellent for both 
beginners and more advanced users of 
the VIC 20. The other books in the pack- 
age are VIC Revealed, VIC Graphics and 
VIC Games, all by Nick Hampshire, alt 
published by Hayden Books. 

For mani; years now ^ou have heard rumors 
of large quantities of gold hidden in a maze of 
caves whose connecting passagewai^s lead 
deep beneath the earth of an occasional!}^ active 
volcano. The stories tell of monsters and de- 
mons who roam through the caves, poisonous 
gas, tremors from the volcano, and one man 
who returned from these perils alive and named 
the caves The Devil's Dungeon. 

This is the introductory paragraph to the descrip- 
tion of the most stimulating and elaborate simulation 
in this book, I don't know about you, but this kind of 
talk makes me want to jump up, grab my scimitar 
and leap onto the back of my trusty Arabian battle 
stallion. Anyway . . . 

This is a book about writing simulations. Simula- 
tions are indeed a hot software item right now, and 
include everything from lemonade stands through 
fantasy role-playing games. In this book, the sim- 
ulation writer is presented with the concepts and 
programming techniques necessary to effectively 
stimulate the game player That sounds like quite a 
mouthful, but mostly what it means is that this is a 
how-to book. 

Stimulating Simulations presents 12 pro- 
grams ranging from rare bird watching to dun- 
geon spelunking. In between these two ends are 
programs such as Forest Fire, Diamond Thief, and 



Art Auction. I must compliment Mr. Engel on the 
documentation for these programs. Each program 
has a variable listing, a complete flowchart, includ- 
ing references to program line numbers, comments 
on possible modifications to the program and sugges- 
tions for expanding the ideas presented. This docu- 
mentation greatly enhances the program listings and 
keeps the reader involved with something more 
than simply entering lines of BASIC. 

1 should add right about now that this book as- 
sumes that the person reading it has a good under- 
standing of BASIC. It does not provide a line-by-line 
description of what each program is doing. At the 
same time simulation programs don't contain the 
tricks and crunching that many graphic game pro- 
grams must, and perhaps this book could help a be- 
ginning programmer understand the fundamentals 
of programming. 

The only problem I found with the book is the 
unfortunate selection of a soccer game simulation 
in the introduction. The text of the introduction is 
very good, explaining to the writer how to create a 
setting and goal for a simulation and includes many 
good ideas for programs. However, the soccer game 
program misses its mark, and at best is a sluggish 
example of what a simu- 
lation is not. If you want 
to get a feel for playing 
the simulations, skip this 
program listing and begin 
by typing in Art Auction 
or Monster Chase. 

I give this book good 
marks overall and would 
recommend it to anyone 
interested in the "how do 
they do that" or better yet 
the "how can I do that" 
of simulations. C 
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"The Commodore 64 
Skiffle Band" 
by Jim Butterfleld 

Spring, 1983 



We are guilty of omitting line 300 from Jim's pro- 
gram listing, which plays the first note of the tune 
"Dixie." Here's the missing line: 



3S0 DRTFI 10. ,51. ,97 .,0.-0. 0,0 



U 



VIC Super Piano'' 
by Myron Miller 

Spring, 1983 



Myron writes: 

I am writing to report some enrors that appear in 
the published program listing for "Super Piano". 1 
found the following errors. 



Line 220 
Published I 

220 PRINT" R: replay TUNE%" XIEXIT M OR 
R ABOVE"," S! SAVE TUNE OK TAPE" 

Original 

220 PRINT" R! REPLAT TUNE"," X! EXIT M OR 
R ABOVE"/' S: SAVE TUNE ON TAPE" 



The published version will not print a space be- 
tween "X:" and "EXIT" in the key guide. 
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Line 245 
Published 1 
245 PRINT'TRESS ANT KEY TO CONT" 



Original! 

245 PRINTIPRIKT" PRESS ANY KEY TO 
CONT") 



Extra colon, no real problem. 



The original version prints a blank line in between 
the last instruction and the "PRESS ANY KEY" mes- 
sage, and prints a space between the border and 
"PRESS". The published version does not. 



Line 255 
Published S 
255 POKEV,15mPRINTCHR$(147> 

Original I 

255 P0KEV45:PRINTCHR*(147) 



Extra colon, no real problem. 



Line 330 
Published: 
330 PRINTCHR$H9)BL$CHR$(19) 

Original' 

330 PRINTCHRt ( 1 9 )BL$ ,BL*CHR* ( 1 9 ) 



The purpose of this line is to erase the messages 
that appear at the top of the screen after a key is 
pressed. The original version will erase the top two 
lines. The published version erases only the top line. 
Thus the published version will erase "KEYBOARD 
READY", but leaves "NO TUNE IN MEMORY" or 
"TUNE MEMORY FULL" on the screen. 



Line 335 
Published! 

335 IFA$="X"THENM=OJ!Q=OIGQSUB 
1000JGOTO305 

Originall 

335 IFA$="X"THENM=05Q=0!GOSUB 
1000!GOTO305 



Line 355 
Published 
355 IFM=lORR=lTHEM310 

Original! 

355 IFM=l OR R=1THEN315 



The original program, by returning to line 315, 
will allow only the number keys (notes), function keys 
(octaves), and carriage return to be memorized. The 
published program, by retuming to line 310, allows 
any key to be memorized, and will attempt to play 
back meaningless key closures. 



Line 435 
Published! 

435 PRINT" "CHR*(18>CHR*(0C%(FKJ)CHR$ 
(146)JGOT0310 

Original! 

435 PRINT" "CHR$(18)CHR$(0C%(FK»CHR$ 
a46)!!GOTO310 



When using the print feature, the published pro- 
gram will start printing on a new line each time that 
an octave (function key) is selected. The original 
program uses the semicolon to keep the printout on 
the same line. C 



"Phone Home" 
Program Listing 

Spring, 1983 

Line 420 should be: 



420FORJ=1T02 : FORK=1T050 



COMMODORE: POWEFVPLAY Fall 1983 125 



new praducis 



Company: 

Softron, Inc. 

2067 Broadway, Suite 27 

NewYork, NY 10023 

212-490-0077 

Product: 

Keyboard Soft/Lay — Keyboard 
overlay for the VIC 20 and Com- 
modore 64. Includes BASIC 
commands, memory locations, 
DOS commands and more. For 
users and programmers. 
Price: $8.95 

Product: 

EZ/DOS— VIC 20 and Com- 
modore 64 machine language 
utility for all disk drive users. 
Makes use of the disk drive easy 
for everyone, even those without 
computer experience. 
Price: $29.95 



Company: 

Integrated Controls 
1240-L Logan Avenue 
Costa Mesa, CA 92626 
714-641-0181 

Product: 
VIAC/VAAB Combo— Audio/ 

video interface for VIC 20 and 




VTAC/VAAB audio/video interfaces 



Commodore 64 computers. 

Allows users to connect audio 

and video equipment to their 

computer 

Price: VIAC (audio) $44.95; VAAB 

(video) $24.95; Combo $64.95 



Company: 

RAK Electronics 
P.O. Box 1585 

Orange Park, FL 320674585 
904-264-6777 
Product: 

SWL RTTY/MORSE=For 
the VIC 20 and Commodore 64. 
Converts your computer into a 
low-cost RTTY and morse de- 
coding and display terminal, so 
you can listen in on the world of 
radioteletype and morse code. 
Allows you to receive 45 to 100 
baud BAUDOT RTTY and 5 to 
30 words per minute morse code. 
Requires TTL compatible terminal 
unit. Package includes software 
on cassette, special user port con- 
nector and complete instructions. 
Price: $19.95 plus $2.00 shipping 
and handling 



Company: 

Smoky Mountain Software 

54 West Main Street 

Brevard, NC 28712 

704-883-2595 
Product: 

Bible Trip — Bible educational 
program for the Commodore 64. 
Uses color graphics, sound and 
animation. Your space ship is 
caught in a time warp and you 
find yourself in Palestine during 
the first century. For sixth 



grade through adult. 

Price: Tape $9.95; disk $14.95 



Company: 

Bubble Bus 
87 High Street 
Tonbridge, Kent TNI ILS 
England 
Product: 

Hustler — Pool-type game for 
the Commodore 64. Written in 
machine code, with sprite graphics 
and music. Six possible games for 
one or two players. 
Price: Contact company 

Company: 

Reilly Associates 
RO. Box 17144 
Rochester, NY 14617 

Product: 

BounceAround — Action strat- 
egy game for the VIC 20. Use the 
keyboard to control a fast-moving 
ball. Hit the targets, but avoid the 
Voids, which swallow the ball. Re- 
quires either 3K expander or 
Super Expander. 
Price: Tape $9.95 

Company: 

Programmers Guild 
PO. Box 220 
UCrescent, MN 55947 

Product: 

Sub Rescue — Action strategy 
game for the Commodore 64. 
Rescue the stranded divers, but 
beware of the Death Ship, mines 
and more. Return your cargo 
safely to Atlantis for more 
ammunition. 
Price: Tape $24.95 



126 COMMODORE: POWER'PLAY Fall 1983 



Company: 

Brgfderbund Software 
1938 Fourth Street 
San Rafael, CA 94901 

Product; 

Cartridge games for the VIC 
20 — In AE you must eliminate 
the hordes of robot sting rays. In- 
creasingly difficult levels of play, 
four different three-dimensional 
screens. Sky Blazer is the World 
War III aircraft you pilot to destroy 
the defenses and headquarters of 
the Bungleing Empire. Both are 
joystick controlled. 
Price: $39.95 each 

Product: 

Cartridge games for the Com- 
modore 64 — Choplifter! features 
realistic throttle action as you try 
to rescue hostages from behind 
enemy lines in your helicopter 
Animation and 3-D graphics. Ser- 
pentine is an arcade action game 
with 20 levels of play. You are a 
snake who must destroy the giant 
serpents. Both use joystick. 
Price: Chop!ifter! $44.95; Ser- 
pentine $39.95 



Company: 

Tronix Publishing, Inc. 
8295 S. UCienega 
Inglewood. CA 90301 
213-215-0529 
Product: 

Games on disk for the Commo- 
dore 64— Juice, a strategy game, 
has six levels of play, each with 
three rounds plus a bonus round. 
Points are earned as Edison, the 
main character, completes circuit 
boards while he avoids the Killer- 
watts and other characters. In Kid 



Grid, the Kid must connect all the 
dots before the four bullies catch 
him. He also must watch out for 
the bouncing question mark. 
Price: $34.95 each 




Kid Grid from Tronix 

Company: 

Pagemate, Inc. 
8166 E. 44th Street 
Tulsa, OK 74145 
918-627-7440 

Product: 

Pagemate'^'^A bookholder 
and typing easel designed to ac- 



commodate almost any size book, 
programming manual, periodical 
or loose pages. It is designed to 
keep pages in place, yet allow 
pages to be turned easily Adjust- 
able to any angle. Available acces- 
sories include "Line-a-timers" for 
easy line location reference and 
hard cover extenders for hard 
cover or thick books. 
Price: $19.95; with all acces- 
sories $27.50 



Company: 

TravelMaster™ 

Division of Southern Case, Inc. 
2315 Laurelbrook Street, 
PO. Box 28147 
Raleigh, NC 27611-8147 
919-821-0877 
Product: 

Molded carrying cases for the 
Commodore 64 and VIC 20— 
TCC-2360 is designed to carry the 
Commodore 64 and disk drive. 
The TCV-2360 holds the VIC 20, 
cassette recorder, power pack unit, 
four cartridges and two joysticks. 
Price: $79.95 




TravelMaster Model TCC 2360 



TravelMaster Model TCV 2360 



COMMODORE: POWER/PLAY Fall 1983 127 



new praduGis 



Company: 

Fantasy Piaza 
P.O. Box 6055 
Burbank, CA 91510 
Product: 

Fantasy Plaza computerized 
shopping mall — Accessible with 
your computer and modem. 
Simulates a shopping center, 
where you can browse through 
the "stores" and select merchan- 
dise. Then place your order and 
the merchandise is delivered to 
your door, C.O.D. Mostmer- 
chandise is computer-oriented, 
but one "floor" also offers gen- 
eral merchandise. 



Company: 

Programmers' Pipeline 
P.O. Box 666 
Glendora, CA 91740 
213-914-4317 

Product: 

Checklist for Program 
Authors — A leaflet that walks new 
programmers (or maybe even ex- 
perienced ones) through the steps 
of preparing a program for mar- 
keting, right down to reminding 
you to mark any program you 
send through the mail with a 
"Magnetic Medium!" warning. 
Price: Free with the mention of 
PowerlPlay and a stamped, self- 
addressed envelope. 




anJj tifje Iliett «a(l>..."llEt V3C 20 
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Yes, the VOICE 80X"'' from 

The Alien Grojp, the world's ONLY 

singing speech synltiesiier. now grants 

the power of speecu to the VIC 20™ 

A commented, all-BASIC demo program gets 

the VOICE BOX talking right away, and. since it can be 

"taught" to say anything, the VOICE BOX has an unlimited vocabulary! 

The voice speaks with natural speech inflection controiled either from the program or 

^- from the precise, built-in Pitch controi. Wo qUkt speech synthesizer has this feature! 

Want to add speech to a new or existing BASIC program! The VOICE BOX has FOUR ways 
to do it on a VIC 20 ot any memory size: entirely from BASIC, or using one of the three 
machine language programs readily added to other programs- English text- to- speech, the 
same w/ith the lip-synch "Alien" face added, or use of the 64 basic phonemes as input. A 
challenging spelling quiz that accepts new words (expanded memory required) is provided on 
the cassette supplied. 

The VOICE BOX plugs directly into the VIC 20's user port comes with buill=in speaker. 
Volume and Pitch controls and lots of instructions from The Allen Group, the people who got 
Atari- and App(e- to speak! 

Avaifable at leading computer stores everywhere, or order direct by sending S95.O0 to: The 
Allen Group. 27 W. 23rd St.. NY, NY 10010. Programs for a high-res talking human face and 
a comprehensive music and singing system available on separate cassette for S25 00 
(expanded RAM necessary). 

Vic 20 IS i IrsiJemsrk <j\ Corrrrotlort {ijctronics Lid VOICE BOX is i tf jcltmsik ol T(i! Mian Grout 
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COMPUTEi's 
Fiist Book Of VIC 



Authors: COMPUTE! Magazine 

contnbuEors 
Price: S 1 2.95 
On Safe: Now 



V Intfoducrjon 



Robert Lock 



Finally, it's VIC 's turni 

Users of other popular personal 
computers have been enjoying their 
COMPUTE! Books; COMPUTEI's 
First Book OfPET/CBM, Program- 
ming The PET/CBM. and others. 

Now, there's a book devoted 
exclusively to the Commodore VIC- 
20"" Computer: COMPUTEI's First 
Booi<OrVIC. 

The editors of COMPUTE! 
Magazine - the leading resource for 
the VlC-20 - gathered together the 
best VIC-20 articles published since 
the summer or 1 98 1 and added 
some new material. The result is 
more than 200 pages of valuable 
information - information that goes 
beyond the instruction manuals. In 
the COMPUTE! tradition, it is care- 
fully edited to be easily understood 
and useful for beginners and experts 
alike. 

COMPUTEI's First Book Of ViC 
is spiral-bound to lie flat, and 
includes ready-to-type program 
listings and articles such as "The 
Joystick Connection; Meteor Maze," 
"STARFIGHT3," "Train Your PET To 
Run VIC Programs," "Renumber 
BASIC Lines The Easy Way" "High 
Resolution Plotting," "Custom Char- 
acters For The VIC," "VIC Memofy - 
The Uncharted Adventure," and "A 
Simple Monitor For The VIC. " 

At only S 1 2,95, less than most 
computer manuals, COMPUTEI's First Book Of VIC 
is among the best resources a VIC user can own. 



Chapter One: Getting Started. 

3 The Story Of 7fif VtC 
11 Computer Genesj 5 Michael S Tomczyk 

20 sS.Tr'SLS'o?'"".'"^'' °°-'^y'^-'<'nHelle./D.«dThorn..g 

24 Large Alphabet ^'^ Butterfield 

26 Usrng A Joystick ' . . . Doug Ferguson 

39 ExKnCea Input Devices Davrd Malmberg 

Paddles And The Keyboard *^.i,„ r> 

46 G,imc P,irJcJif.s """^^ ^^^sman / Salomon Lederman 

67 2APII -vreieof Maze P^"-"! L Bupp / Siepnen P. Drop 

72 STARFIGHT3 DuD Scroggin 

78 Aiphabetizer ' David R. Mizner 

SO Count The Hearts -''"^ WjIcox 

97 Tram Your PET To Run VIC Prfjcir.tnis ^^"^^^ ^ McCaJJtster 

99 User (npui . lyie Jordan 

1 03 ArTioriiire , . . . _ • Wayne Kozun 

1 06 Append ' . ' ' ' ■ ^ -.-,,... . Amihai Glazer 

1 09 Printing Tfip Screen " ' " ' Wayne Kozun 

113 The Confusing Quote .....',. ^^- ^^'^^ 

115 Adcrnrite Scrc'cns ' Charles Brannon 

1 1 9 Iinickecping -''"1 SulterfieW 

1 25 lATurrnbcr BASIC Lines The Easy Wav ^u'*^'"'"^ Schleiffer 

127 AijtodMiii: Line Numbers Charles K Gould 

129 i\t\ui\q The Squvv/c On Vou/ VIC~20' ' " ' ' "''"^ ^''™'* 

Gf[[ing The Most Out Of 5000 Bytes ' <■ , 

1 4 1 An Easy Way To (?elocaie VIC Programs Stanley M. Berlrn 

On Otfici Commorjore Ct)mputm r-r» 

rKar^»«, ir« , . ■ ■ ^'^'^ '^"<^ ^°^^ Sherwood 

Jiff '^°"'- *^°'*"' ^"*^ GMphlcs. 

1*7 K.ilcidoscopeAndVaiMtions 

148 High (frsoIufionPlottint) Kenneth Knox 

1 54 VIC Color Tips , , , P'^ul F. Scfiat? 

157 The Window Charles Brannon 

1 60 Custom Character,'; For The VIC Charles Brannon 

■ ■ Davjd Malrnbcrg 



wf u'*' '''*'^- """P' ^"** Specifications. 

1 73 How lo Use Thi- 6'>60 Vid.o Interface Cf.ip 

1 79 BrowMHtj The VIC Chip " 



Dale Gilbert 
Jim Butlerfield 



!S5 M^:Sr;;S;;£^'SS:sr""^''^ : : : : °-^^ «-- ' Michae- K.^;j 



Jim Butterfield 



Chapter Slxi Machine I-inguage. 

1 95 TdMYMQN i A Simple Monitor /-« rnt viC , „ , 

202 Enteririg TINVMON I Directly Into Your VIC20 r,' -''^ ^'^"^^^'^''^ 

211 in.,,.. Russell Kavanagh 



Available at computer dealers and bookstores nationwide. To order directly call TOLL FREE 800-334-0868. 
In North Carolina call 919-275-9809. Or send check or money order to COMPUTE! Books, P.O. Box 5406, 
Greensboro, NC 27403. 



Add S2 shipping and handling. Ouisidf (he US. am SS for air mail, %2 lor surface mail. All orders prepaid. U.S funds only 
\AC-20 IS a trademark of Commodore Electronics Limited. 



^E comtnoclord' 

1200 Wilson Drive 
Wtst Chester, Pa. 19380 

. Addioss Correction Requested 
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APPLE' lie 64K 



A personal computer 
is supposed to be a 
computer for persons 
Not just wealthy 
persons. Or whiz-kid 
persons. Or privileged 
persons. 

But person persons. 

In other words, all the persons whom 
Apple, IBM, and Radio Shack seem to 
have forgotten about (including, most 
likely you). 

But that's okay Because now you can 
get a high-powered home computer 
without taking out a second mortgage 
on your home. 

It's the Commodore 64. We're not 
talking about a low-priced computer that 
can barely retain a phone number 
We're talking about a memory of 64K. 
Which means it can perform tasks most 



.V^'U' 



$139r $999* $1355* 



TRS-80" III 16K 



IBM" PC 64K 



other home computers can't, Including 
some of those that cost a lot more. 
(Take another look at the three comput- 
ers above.) 

By itself the Commodore 64 is all 
the computer you'll ever need. Yet, if 
you do want to expand its capabilities 
some day you can do so by adding a 
full complement of Commodore pe- 
ripherals. Suchasdiskdrives. Modems. 
And printers. 

You can also play terrific games on 
the Commodore 64. Many of which 



tar more' 
challenging than 
those you could 
~ ever play on a 
game machine alone. 
And as great as all 
this sounds, what's 
even greater-sounding 
is the price. It's hundreds of dollars less 
than that of our nearest competitor. 

So while other companies are tr/ing 
to lake advantage of the computer 
revolution, it seems to us they're really 
taking advantage of something else: 
Their customers. 

■Mstiufficlurets' suggoslod h^ipnxs. 
Monnofioclutledwim TRS-80 III onhv Comfnodore ftuaness 
Machmej-TO Bon SOOa. Conshohocken. PA W28; 
Canada-337D frvmraci Aimnue. Agsicoun, Ont, Can. MW 2IC4. 
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